*ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Hotword *RHOTWORD* Group Stage Button Viewer ComboBox Field RecordField *TbxBase* L imator ' | & 5 | 4 imator B40ANX.TBX M | V V ne ` L ` ne j V j eld bxBase* ` j bxBase* ` z j 40HYP.SBK lipse Resize vertically vertex resize remove linevertex linevertex mmc_stepb_d mmc_stepb mmc_rw_d mmc_rw mmc_stepf_d mmc_step_f mmc_ff_d mmc_ff mmc_stop_d mmc_stop mmc_pause_d mmc_pause mmc_play_d mmc_play flourish 2 flourish 1 skull trasnexiR Rixensart wwwwwwwwwwwwwwwwwwwwww wwwwww wwwww wwwww wwwwww wwwwwww wwwwwwwwwwwwwwwww GETBOOKNAME wwwwwwwwwwwwwwwwwwwwwwxwwwwwwx wwwwwx wwwwx wwwww wwwwww wwwwwww wwwwwwwwwwwwwwwww GETBOOKNAME wwwwwwwwww wwwwwwwwww wwwwwwwwww pwwwwww wwwww wwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxx wwwwxp wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxwwxwwww wwwwxwwxwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwww wwwwwy wwwwww wwwwww wwwwwp wwwww GETBOOKNAME wwwww wwwww wwwwww wwwwww wwwww wwwww GETBOOKNAME z"*ww wwwz" wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwww xxwwwwwwww xxwwwwwwww wxwwwwwwww wwwwwwwwww wwwwwwwww wwwwwwww wwwwwww wwwwwww wwwwww wwwwww wwwww wwwwx wwwww wwwwwx wwwwww wwwwwwx wwwwwwwww ywwwwwwwww wwwwwwww wwwwwww wwywwwwwww wwwwww wwwwww wwwww wwwwy wwwww wwwwwyw wwwwww wwwwww wwxwwwxwww wwwww wwwwwwwwww wwwwwp wwpwwwpwww wwwwwwwwww wwwww wwpwywpwww wwwywwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwp wwwwp wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wxwww wwwwx wrwww w"'ww r'"ww "wr'w 'ww"w wwwr' wwww" wwwwr wwwwwpx wpwwwwwx pxxxxxp D:\MTB30CBT\REFSHELF.EXE justify text right text center text left text Pushpin Pushed PushPin OFF exe icon default icon property browser wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww ffffffffffffff ffffffffffffff ffffffffffffff wwwwwwwp wwwwwwwp wwwwwwp wwwwwwwwwwwp wpwwwwwwwwwwwp wpwwwwwwwwwwwp wpwwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwwwp fffffffffff` fffffffffff` fffffffffff` DDDDDD@ DDDDDDDD@ DDDDD DDDD@ DDDDD DDDD@ DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDO DDDDD@ DDDDO DDDDD DDDDDDDDDDDDDD DDDDDDDDDDDDDD DDDDD DDDDD@ DDDDO DDDD@ &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar select WM_LBUTTONDOWN setCursor bottomBar editorScripts openWindow bottomBar PsetSize shown s_anim_lastLoc s_anim_objectdy s_anim_dy s_anim_idleAnimations s_anim_pathdy s_anim_dx s_anim_curvedVertices s_anim_PathObject s_anim_pathdx s_anim_Objectdx s_anim_animationSettings s_anim_dragging s_anim_CurrentObject s_anim_selectedVertex s_anim_selectedTool s_anim_segLengthList closeWindow modeCursor setCursor theTarget setCursor Vertex W_handle NE_handle button lineVertex vertex pathObjectID SW_handle s_anim_PathObject E_handle remove N_handle s_anim_handle selectionHandles statusBar SE_handle NW_handle s_anim_selectedTool modeCursor .', #? SelectObject vertex animations selectObject bottomBar objects selectedObject s_anim_PathObject initDialog 2, "Q TsetProp fheader stbk_curOb lScurProp stbk_propValues stbk_Canceled propValue updatePropFromHeader fheader stbk_propValues stbk_Canceled propValue cancelPropFromHeader sysHistoryRecord sysTabSpacing sysFillColor ttbk_linkIniFileFuncs sysAlignment sysTransparent sysPolygonShape sysUseWindowsColors sysFontFace sysGridSpacing author 6getToolBookIniItem sysLineStyle sysCentered sysLineSpacing sysGridSnap sysRuler sysFontSize sysTabType sysPattern sysIndents section sysFontStyle 6gettoolBookIniItem sysHotwordsShown sysStrokeColor Startup Preferences sysDrawDirect sysGrid setStartup .', " .', " threeDStyle topline topLine sculpted threeDeeRect AngledLine threeDeeRect inOut bottomLine doThreeDee .'+ +F w, #> ,&H.& oldCursor SortList -- SORTED hndlrs getScriptHeader TB40dlg.dll SortList hndlr _sortScript ,&H.& 1, "j notifyAfter scrpt -- SORTED notifyBefore GetScriptHeader leavePage values itemOffset listToTextLine listToTextLine trueValue TB40dlg.dll trueValue dropValues itemOffset values trueValue propValue trueValue propValue values trueValue selectChange enterPage link page name >tbk_Container Link to specific propValue choice propValue ,&H.& linkType >tbk_Container Link to specific fixFields choice propValue Browse propValue link book name linkType okBtn >tbk_Container Link to specific fixFields defaultButton link page name false choice propValue transition BadLinkIndicator Browse propValue default skrefFocus buttonClick link book name link page name >tbk_Container link to specific choice fixFields w, #> LinkTypeList None,Go to another page,Pop up another page dropValues None,jump,popup Ntbk_GetString enterPage ,&H.& values dropValues itemOffset ;DselectedItems values defaultLinkType default propValue values propValue Link To What >tbk_Container defaultButton false values link To what Popup Style skrefFocus propValue BadLinkIndicator enableSelf browse selItem propValue Transition selectChange w, #> Ntbk_GetString dropValues HyperTriggerClick buttonClick,buttonDoubleClick Single click,Double click enterPage ,&H.& values dropValues itemOffset trueValue propValue trueValue propValue values trueValue selectChange >tbk_Container background No hyperlinks on this page jtbk_Trim firstIdle .'+ +F .'+ +F needDlg textToPrinter tbk_TextToPrinter tb40win.dll Unable to print. printerOptions ?%tbk_TextToPrinter buttonClick >tbk_Container background jtbk_Trim LinePrinter Title printerOptions author skrefFocus refBtn keyDown Cancel cancelBtn defBtn skrefFocus cancelBtn enterPage refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus CelAnimation stepsPerCel forever FALSE FixedPath group StepsPerCel integer ShowAllSteps s_anim_animationSettings s_anim_CurrentObject duration steps updateSettings close keyDown updateSettings anim_edit enterPage leavePage leaveBackground integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown sliderMax button integer BottomBar slider s_anim_animationSettings buttonUp sliderMax BottomBar slider s_anim_animationSettings leaveField hdrowDownItems anim_edit anim_AnimationSettings hdrowDownItems fillAnimationList anim_edit objects s_anim_animationSettings s_anim_CurrentObject selectedObject enterPage .', #? objList anim_edit selectionHandles s_anim_PathObject currentObject enterPage selectObject fillAnimationList objRef animations selectChange .isChild ,toggleInvert [ebuttonPressed buttonUp \ebuttonPressed ,toggleInvert buttonDown .isChild ,toggleInvert buttonStillDown invertedButton invertedButton toggleInvert FALSE group isChild kdataType formats buttonClick [yy]yy:mm:dd dateFormats kdataType /R/I/T/ dd:mm:[yy]yy mm:dd:[yy]yy formats initType noneStr secName sftsSections [None] CONC_SECTION choice `/ftsListToTextline sftsSetFile object itemNumber Ntbk_GetString NoneBrackets newSec ftsSection CREATE objNm *ftsGetIniVar exclude ftsExclude initializePage cancel keyDown V, #> sftsSetFile choice [None] kfieldData Ntbk_GetString Integer NoneBrackets Character typeString newKF CREATE *ftsGetIniVar kfieldName kfieldType Real Number KEYFIELDS initializePage cancel keyDown keyRef dataType formats buttonClick /R/I/T/C/ [yy]yy:mm:dd dateFormats dd:mm:[yy]yy mm:dd:[yy]yy formats initType initType Enter New Tag: String New Hotword Tag Tags may not contain commas or multiple words. eztagEntry BadFTSTag Ntbk_GetString valName Integer kdataType typeString tbk_bookRef value entry dataType NewTagColon Real Number A tag of that name already exists. buttonClick 1, #> ,&H.& ,&H.& ToolBook books (*.TBK),*.tbk,ToolBook sysBooks (*.SBK),*.sbk, All files (*.*),*.* fileList fullName included books `/ftsListToTextline pathAndName center sftsKwNum filterList sftsMainBk ftsGetFileListDlg Itbk_Ellipsize Add ToolBook Files bkName trueValue ftsSetPage YaddBooks splitPath trueValue files buttonClick 1, #b 1, #> FALSE propEdit &Edit (Not Editable): propName initdlg propEdit sEreturnString cancel propEdit enterpage &updateStartButton keychar cancel !+setDefButton updateStartButton &updateStartButton keyup enterField firstIdle &updateStartButton paste &updateStartButton &updateStartButton clear leavePage author refBtn keyDown Cancel cancelBtn defBtn tbk_IsWin95 skrefFocus enterPage skrefFocus setDefButton refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus findString scriptDisplay objectRef selectChars replaceString initDlg sEreturnString sEreturnString Yes to All yestoAll sEreturnString sEreturnString cancel firstIdle foundScripts U"searchString initDlg foundScripts cancel {keyTab}{keySubtract}{keyEscape}+{keyF5} TB40WIN.DLL matchword {keyTab}{keyAdd}{keyEscape}+{keyF5} sharedScript {keyF5} stbk_asword Cssendkeys sendkeys editScript resize vertically >tbk_Container bookref mouseenter .'+ +F mouseleave stbk_yMax stbk_y thedots splitter dots buttonDown stbk_yMax stbk_y buttonStillDown .'+ +F .'+ +F resize vertically =@setToolBookIniItem stbk_y Splitter theDots splitter dots Handler Browser placement stbk_yMax >tbk_Container buttonUp fixLayout placement page rIsNumber RulerToPu PuToRuler keyChar sysIndents2 page sysIndents1 page sysIndents3 page propValue sysIndents2 sysIndents2 page puToRuler sysIndents1 sysIndents1 page sysIndents3 sysIndents3 page propValue regular zapSpaces trueValue propValue ,&H.& 1, #b Ntbk_GetString zapSpaces trueValue propValue Plain Italic Underline Ntbk_GetString nothing zapSpaces patternFlipper solidFill pattern custom solidStroke update propValue solidFill pattern solidStroke propValue patternFlipper solidFill pattern propValue custom solidStroke buttonClick enterField w(incrementnum decrementnum update keyDown incrementnum decrementnum cancel risNumber w(incrementnum decrementnum oldText update keyChar clear paste update update 1,"Kh 1,"K8 1,#!# 1,"JxY 1,#!# chain break chainStart chainEnd anchor dropAnchor chain break anchor hideAnchor .', " GcheckPathAnimLimits The frame rate should be changed to Please reduce either the duration in seconds or the steps per second. newRate Variable The animation will be smoother if the frame rate is set to seconds. Ntbk_GetString The animation contains too many frames. so that the animation will reach the end point at exactly smooth s_anim_animationSettings &Keep Current Setting Ntbk_getString buttonClick showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized $setPos lastX setClipControls thumb asym_reset setClipControls EushowClip preLoadMedia author (hopenClip $setPos llplayClip kQautoShowMedia ,3clipRef lastX HautoPlayMedia thumb firstIdle kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip myViewerRef _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .'+ +F .'+ +F myClip myViewerRef _jcheckStageSize ,3clipRef openClip setClipControls mmnotify myViewerRef clipStat seeking paused ,3clipRef stopped playing pause closed setClipControls showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized $setPos lastX setClipControls thumb asym_reset setClipControls EushowClip preLoadMedia author (hopenClip $setPos llplayClip kQautoShowMedia ,3clipRef lastX HautoPlayMedia thumb firstIdle kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip myViewerRef _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .'+ +F .'+ +F myClip myViewerRef _jcheckStageSize ,3clipRef openClip setClipControls mmnotify myViewerRef clipStat seeking paused ,3clipRef stopped playing closed setClipControls color script cheader UNKNOWN STACK boolean textheader LOGICAL custom ENUM LIST multiLine dialog resource value headertype ,&H.& cheader textheader listToTextLine fheader listToTextline TB40dlg.dll display tbk_reset .'+ +F w, #> .'+ +F Cancel refObj SetPropXtoPropXinBrowser itemOffset refObj ChooseDropObject Set the property "%1" of Ntbk_GetString ^-adjustScroll =.IsPointClose yesStr refObj yesStr propName %2 to the value of "%1" in the Property Editor? propValue idNumber,parent,object,objects,uniqueName propName buttonDown isPointClose tbk_reset GetIniVar oldDir tbk_GetCurrentDirectory prompt IniFile bitmap directory propValue tbk_iniFile UpdateBitmapList Ntbk_GetString dirField propValue SetIniVar tbk_IsDirectory TB40win.dll bitmap scroller *tbk_SetCurrentDirectory Choose a Directory TB40dlg.dll Backdrop gUNoCancel GetIniVar SetIniVar ChooseDirectoryDlg thePath BackdropPath .ChooseDirectoryDlg >tbk_Container buttonClick showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized setClipControls asym_reset EushowClip preLoadMedia author (hopenClip llplayClip kQautoShowMedia ,3clipRef setClipControls HautoPlayMedia firstIdle kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip myViewerRef _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .'+ +F .'+ +F myClip myViewerRef _jcheckStageSize ,3clipRef openClip setClipControls mmnotify myViewerRef clipStat seeking paused ,3clipRef stopped playing pause closed setClipControls hierarchy updateSelf updateSelf browseBook yhelpText Linked functions or aliases. Ntbk_GetString Linked functions or aliases isDLL statusBar mouseEnter statusbar mouseLeave .'+ +F tbk_winHelp field MTB40.HLP keyUp windowSized FixLayout sizeToViewer 6GetToolBookIniItem splitter Hierarchy splitter dots Splitter Handlers Handler Browser splitter handle fixLayout fixLength fixFieldScrollBar fixLength Enter New Tag: newKF newKF Choice New Hotword Tag Tags may not contain commas or multiple words. eztagEntry BadFTSTag Ntbk_GetString valName Integer Duplicate Tag kdataType typeString tbk_bookRef value entry dataType NewTagColon newVal Real Number A Tag of that name already exists. Character buttonClick w, #> ~QfitText trueText HshortFileName obRef oType propValue ~QfitText sized trueText fitText truetext tbk_reset >tbk_container background 6getToolBookIniItem Splitter splitterPlacement placement Property Editor firstIdle Splitter Property Editor =@SetToolBookIniItem leavePage >tbk_Container bookref resize mouseenter .'+ +F mouseleave stbk_x thedots splitter dots stbk_xMax buttonDown stbk_x stbk_xMax buttonStillDown .'+ +F .'+ +F dummy =@setToolBookIniItem stbk_x Splitter bookref theDots splitter dots stbk_xMax placement resize Property Editor >tbk_Container buttonUp valueLabel propName propValue nameLabel placement Popup Window Sample samples linkType refpos refPg >tbk_container @samples popup Style shadowed LinkType transition sample 1 transition sample popupStyle winList propValue autoclose sample pgName Transition Sample fullScreen manual close sample Itbk_PopupPage mywpos Shadowed manual close sample @samples shadowautoClose &Test vwrRef closeMySamples >tbk_Container buttonClick &Test enterPage closeMySamples leavePage closeMySamples winActivated o+:![ samples samples @samples @samples closeMySamples w, #> In,Out in,out Ntbk_GetString dropValues FXDirInOut enterPage values itemOffset listToTextLine listToTextLine trueValue TB40dlg.dll trueValue dropValues itemOffset values trueValue propValue trueValue propValue values trueValue selectChange fixMyValues tbk_reset values comboValues valspec w(tbk_PopupWinComboValues trueValue fixMyValues trueValue propValue values mqtbk_itemOffset fixMyValues trueValue propValue values trueValue selectChange link book name >tbk_Container Link Page Browser false pgRef dlgResult propValue updateSelf Main List browseBookDlg pgRef pageIDNumber propValue link Book Name bkName main list link book name propValue updateSelf Main List browseBook keyUp keyDown keychar >tbk_Container Set Page Name _UseBackdropResource Stretch To Fit preview Stretch 6getToolBookIniItem Sample Bitmap skrefFocus sample bitmap scroller Backdrop Preview propValue enterPage .'+ +F .'+ +F .'+ +F Stretch To Fit OKToDeleteBackdropResource =@setToolBookIniItem workWindow Backdrop useButton nothing false TheResource of book Sample Bitmap noStr oldResource setBackdropProps Ntbk_GetString Preview FindBackDropObject propValue No other object is using the old backdrop bitmap. OK to discard it? bgSize bitmap scroller yesStr button CloseThisWindow preview lastSelected Stretch sample sameResource setBackdropScript closeThisWindow .'+ +F cancelOK fUnoCancel cancel gUnoCancel sliderMove startSliderMove sliderMax sliderMin nearestPUPP mysliderPos HendSliderMove sliderMax sliderBounds sliderMin mysliderPos nearestPupp leftMButton sliderPos s_anim_dx `primaryMouseButton newMouseX oldMouseX buttondown All objects in this book SAndRDropItems Page, background and book scripts Ntbk_GetString This page Scripts in object hierarchy This page and background dropItems SharedScripts of this book enterPage SearchRange 6getToolBookIniItem Tools enterPage SearchRange Tools =@SetToolBookIniItem leavePage ,&H.& This page Scripts in object hierarchy Page/background/book scripts Scripts of all objects This page and background dropItems SharedScripts of this book propValue stylebuttons borderbuttons NthreeDeeStyle updateSample sample border initDlg stylebuttons border borderButtons threeDeeRect inorout Nthreedeestyle border sample updatesample cancel stylebuttons border borderButtons sEreturnstring inorout Nthreedeestyle border leavePage fixFieldScrollBar fixLayout keyUp rightButtonDown refObj {keyDownArrow}{keyDownArrow}{keyUpArrow}{keyUpArrow} >tbk_Container TB40WIN.DLL handlerName sharedScript {keyF5} HandlersBookNameRequired CantEditDLL Cssendkeys Ntbk_GetString checkByWord Cannot deal with unnamed books. Can't edit DLL functions! of book stbk_lastActiveWindow isDLL sendkeys {keyTab} {keySubtract} {keyEscape}+{keyF5}{keyHome} {keyAdd} buttonDoubleClick propValue enterpage clear enterField paste .', " propHeight pixels risNumber propWidth width keyChar startupWidth startupHeight propValue risNumber startupWidth startupWidth pixels startupWidth VGA propWidth startupHeight pixels risNumber startupHeight VGA startupHeight propHeight propValue propValue update keyDown ,"J9" update keychar MoldText enterField sanityCheck leaveField sanityCheck leavePage sanityCheck Error: The pattern number be in the range 1 false PatternError Ntbk_GetString or 254 for solid fill color, or 255 for solid stroke color. MoldText update sanityCheck propValue propValue ,"Jc" keyDown ,"J9" keychar MoldText enterField ,"Jc" Error: sysPolygonShape must be a value between 3 and 99 PolyError Ntbk_GetString MoldText leaveField author refBtn keyDown Cancel iconDisplay >tbk_Container cancelBtn defBtn tbk_IsWin95 skrefFocus enterPage hiliteButton refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus enterField x(incrementnum decrementnum update keyDown false incrementnum false decrementnum cancel decrementnum x(incrementnum risNumber oldText update keyChar update update clear paste \lastTickCount enterpage USER.EXE mmGetTickCount leavePage getTickCount mmGetTickCount myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia \lastTickCount enterpage USER.EXE mmGetTickCount leavePage getTickCount mmGetTickCount myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia leavePage 6updateprompt s_EditArray dimSpec fixOverflow value edit prompt $lastOtherDim ClastSel W3dimSpec V3dimSpec ClastSel update keyDown 6updateprompt s_EditArray dimSpec value edit prompt ClastSel $lastOtherDim V3dimSpec buttonUp buttonDoubleClick buttonStillDown ,&H.& fixOverflow V, #> V, #> ,&H.& dimSpec numbers V3dimSpec textScrolled C6_tbk_HyperlinkIRow false A_tbk_AddLinkToArray tbk_HasHyperlinks _asym_hyperlinks _asym_hyperlinks _tbk_AddHyperlink tbk_HasHyperlinks _asym_hyperlinks _GetHyperlinks of this book. the list of directories stored in the asym_hyperpath property won't be able to move the books around without breaking >tbk_Container fName B. Store the directory with the book file name itemOffset to find the destination book even if you move the books false thisBook to a different configuration directory, simply by changing the link. destBook Mtbk_MakeIntoRelPath ,,,, in the hyperlink. This makes the link faster but you HshortFileName V_SetHyperPath that will be searched automatically. You can: hyperPath 5tbk_altPgName relPath pathOfFile The destination book is not in a directory to search automatically. This will make it possible A. Add the destination directory to the current book's list of directories \ tbk_nameOrID asym_hyperpath &A. Add Directory to Search Path thisPath &B. Store Directory in Hyperlink destPath tbk_FindPathFile _tbk_AddLinkToArray >tbk_Container bkName tbk_CurrentDirectory deftag Mtbk_MakeIntoRelPath pathOfFile BookDir _asym_hyperpath thePath tbk_RelativePath _SetHyperPath tbk_FindPage _tbk_BadLinksList C6_tbk_HyperlinkIRow _tbk_ClearHyperlinkFromArray false tbk_HasHyperlinks _asym_hyperlinks _asym_hyperlinks _tbk_ClearHyperlinkFromArray _tbk_ClearHyperlink >tbk_Container hotword button _AutoCloseCheck s_tbk_popViewers HorizontalDisplayRes >tbk_Container There are no Viewers available. false sysMenu lScreenFromPage 9VerticalDisplayRes TB40win.dll thinCaption asym_resetCursor ScreenFromPage VerticalDisplayRes HorizontalDisplayRes hyperlink viewer magicName tbk_TempViewer vtemp jtbk_CloseOnEsc thick autoClose Do not rename me >tbk_container shadow _tbk_PopupPage ClastSel updateSelf enterpage ClastSel tbk_reset leavePage 1, #Z ListToTextLine SortList notifyAfter [DLL] TB40DOS.DLL ClastSel TB40WIN.DLL ListToTextLine page background trueText notifObjs [notify in sharedScript] TB40DLG.DLL fixFieldScrollBar tbk_ObjectOfInterest Ntbk_GetString 6getToolBookIniItem handlers GetFileDate [SysBook] [sharedScript] stbk_lastActiveWindow Handler Browser [notify] notifyBefore GetFileVersion notifObj >tbk_container UpdateSelf fixFieldScrollBar fixLayout fixLength textScrolled w, /E textRight trueText |Lshorten fixLength [DLL] shorten s_tbk_junk_handlers Name: >tbk_Container [notify] false [notify in sharedScript] TB40DLG.DLL fixFieldScrollBar ListToTextLine NameColon isDLL statusBar s_tbk_junk_sort Handlers [DLL] [sysbook] stbk_lastActiveWindow ClastSel [sharedScript] SortList trueText ClastSel Ntbk_GetString ListToTextLine SortList refObj notifyAfter,notifyBefore GetFileDate ItemSelected stbk_lastActiveWindow trueText selectedObj itemSelected buttonUp itemSelected keyUp w, #> (Unnamed) [DLL] Name: Version: SelectedObj [notify] File name: Prod. version: ~getFileVersion Ntbk_GetString File date: NameColon Product name: [sharedScript] [sysbook] (No version information available) stbk_lastActiveWindow DLL Information Trademark: trueText Language: Unnamed Copyright: NoVersionInfo GetFileDate rightButtonUp itemSelected rightbuttonDown showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized $setPos lastX setClipControls thumb asym_reset setClipControls EushowClip preLoadMedia author (hopenClip $setPos llplayClip kQautoShowMedia ,3clipRef lastX HautoPlayMedia thumb firstIdle kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip myViewerRef _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .'+ +F .'+ +F myClip myViewerRef _jcheckStageSize ,3clipRef openClip setClipControls mmnotify myViewerRef clipStat seeking paused ,3clipRef stopped playing pause closed setClipControls llplayClip DystopClip ,3clipRef playing status buttonClick showWidgetsProps ,3clipRef asym_reset EushowClip preLoadMedia author (hopenClip llplayClip kQautoShowMedia ,3clipRef HautoPlayMedia firstIdle mmWidgetSysBook kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip myViewerRef ,3clipRef playClip .'+ +F .'+ +F myClip myViewerRef ,3clipRef openClip whatStage setClipControls fixMyValues tbk_reset values lastItem trueValue Property Editor =@SetToolBookIniItem leavePage values fixMyValues trueValue propValue values trueValue 6getToolBookIniItem ,Current Viewer comboValues ,Current Book lastItem valspec ,Current Background ,Current Object PropBrowsComboVals ,Current Page ,System Ntbk_GetString Property Editor fixMyValues values trueValue fixMyValues propValue tbk_lastWin tbk_ObjectOfInterest propValue objectOfInterest obtype >tbk_container `skipFlag `skipFlag acheckSelection trueValue trueValue selectChange .'+ +F stbk_customDlgShown stbk_customPropFlag enterWindow tbk_lastWin false updateFlag \updateBrowser stbk_curOb stbk_cursor stbk_propNames stbk_propValues updateFlag leaveWindow obtype script tabFolder rightEdge1 cheader bottomEdge1 propFieldBounds 6getToolBookIniItem object of interest splitter dots propGroup splitter splitx NameLabel rightEdge3 nameLabel Splitter fheader stbk_lastWinSize dialog clientSZ obTypeFld bScript propName propValue labelGroup Property Editor bottomEdge2 valueLabel sized tabfolder myPos 6getToolBookIniItem Position stbk_curMode ~myIsOpen obmode mySize getSystemMetrics stbk_curOb Status Bar Property Editor openWindow <+V!! tabfolder lastMode k;closing Position =@setToolBookIniItem ~myIsOpen minimized tbk_reset statusbar Property Editor closeWindow previous first background .'+ +F .'+ +F ,&H.& slestyle s_anim_sourcePage objList slesize button s_anim_idleAnimations TB40ANM.SBK field tbk_lastWin newPage ZstopAnimation anim_edit stage aborted by edit SelectionHandles field,recordField No objects to animate. You must draw some objects first. newBackground solidHead _pathAnimation 1, #> fxDestText prompt >tbk_Container msLabel dirLabel false values HasDir Ntbk_GetString dropValues FXDestinations propValue slide transition speed push slide wipe Upper Right,Mouse Position,Horizontal,Vertical rain turnPage trueValue speedLabel left,right,bottom,top,lowerLeft,lowerRight,upperLeft,upperRight,atMouse,horizontal,vertical Left,Right,Bottom,Top,Lower Left,Lower Right,Upper Left, destLabel trueValue fxDest split spiral selectChange values dropValues ,&H.& in out itemOffset >tbk_Container speed jtbk_trim Values speedObj dirObj transition speed destObj atMouse pushrainslidesplittearturnPagewipezoom slidespiralsplitzoom propValue destLabel trueValue dropValues propValue Ntbk_GetString spiral,split,tear,turnPage,wipe,zoom FXListValueKeywordsNotTranslated none,blinds,dissolve,drip,fade,iris,push,puzzle,rain,slide, valueList ,Blinds,Dissolve,Drip,Fade,Iris,Push,Puzzle,Rain, FXList valueList Ntbk_GetString dropValues fxList fxText Slide,Spiral,Split,Tear,Turn Page,Wipe,Zoom trueValue enterPage w, #? >tbk_Container speed push slide wipe rain TurnPage propValue transition speed trueValue spiral atMouse at %sysMousePosition% split propValue transitionSpec trueValue tbk_reset trueValue enterPage bfixtextlength unverified Ntbk_GetString 9touched ThisBookDB trueValue thisBookStr propValue trueValue Ntbk_GetString 9touched ThisBookDB propValue 9touched clear 9touched 9touched paste unverified 9touched trueValue keyChar bfixTextLength unverified false s_Canceling 9touched asym_hyperpath unverified trueValue tbk_FindPathFile leaveField center Itbk_Ellipsize fixTextLength trueValue tbk_reset trueValue enterPage link book name >tbk_Container PageAndQuotedPageName Ntbk_GetString Page "%1" tbk_IsNumber 9touched Page ID %1 PageAndID propValue trueValue >tbk_container propValue jtbk_trim propValid trueValue propValue link book name >tbk_container bkNam false propValue asym_hyperpath trueValue tbk_FindPathFile propValid 9touched clear 9touched 9touched paste propValid 9touched 9touched keyChar >tbk_Container defaultButton skrefFocus propValid leaveField FindABook buttonClick w, #> w, #> oldDir 4.0 MM >tbk_Container You must convert it before you can link to it. thisBkFn This book was created with ToolBook/Multimedia ToolBook 3.0. links to other books. EXE books before you link to it. OpenFileDlg x is tb3/mtb3 file *tbk_SetCurrentDirectory 3.0 MM (*.tbk),*.tbk, (*.exe),*.exe, x is an old tb file This is not a ToolBook file. Book extension prompt x is not a ToolBook file false All books tbk_CurrentDirectory TB40DLG.DLL 6/ASYMA_GetAuthorIni Special books Must name book before link Sorry, you must save this book first before setting filter Custom Destination book This book was created with an older version of ToolBook. Books errMsg BrowseBook OpenFileDlg Ntbk_GetString You should reopen it in ToolBook 4.0 and resave it (*.?bk),*.?bk FindABook >tbk_Container bitmap directory 6getToolBookIniItem updateBitmapList browse badFormat pathOfFile somethingSelected Backdrop propValue firstIdle tbk_reset .'+ +F >tbk_Container defaultbutton bitmap directory wSortTextLines GetFileList GetFileList skrefFocus propValue *.dib TB40dos.dll TB40dlg.dll lastSelected SortTextLines *.bmp thePath updateBitmapList lastselected lastSelected keyUp keyDown lastselected lastSelected buttonClick .'+ +F .'+ +F errfld infofld >tbk_Container defaultButton dummyName sample backdrop badFormat propValue +dummyResName bitmap info sample Preview propValue skrefFocus somethingSelected w, #> thumbnai\ HshortFileName pathOfFile makeThumbnailName .'+ +F lastSelected somethingSelected lastSelected 2, #> lastSelected >tbk_Container bitmap directory propValue propValue ,&H.& HshortFileName lastSelected tbk_ScrollListBoxToSelection propValue author wordwrap field refBtn keyDown Cancel >tbk_Container cancelBtn defBtn tbk_IsWin95 cancelBtn skrefFocus enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus initDialog anim_edit enterPage [do_buttonDown editorScripts s_anim_PathObject buttonDown do_dragging editorScripts default s_anim_PathObject buttonStillDown do_endDrag editorScripts s_anim_PathObject buttonUp do_curveVertice editorScripts s_anim_PathObject buttonDoubleClick do_keyDown editorScripts s_anim_PathObject keyDown ,"J(" keyUp theTarget setCursor mouseEnter theTarget setCursor mouseLeave reader editorScripts moveVertex vertexPosition vertexPosition |.verticeCount theVertices verticeCount author wordwrap field refBtn keyDown >tbk_Container cancelBtn defBtn Close tbk_IsWin95 cancelBtn skrefFocus enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus selectObject aborted $offsetPathBy s_anim_idleAnimations anim_edit vertexPosition ZstopAnimation theVertices s_anim_animationSettings compilePath selectionHandles s_anim_PathObject startSliderMove currentTime jumpToStep s_anim_animationSettings s_anim_CurrentObject sliderMove anim_edit updateCel jumpToStep .', " 1+V!8 updateCel enterPage leavePage leaveBackground .'s>V 1+V!8 selectObject s_anim_animationCache aborted $offsetPathBy s_anim_idleAnimations anim_edit vertexPosition ZstopAnimation theVertices s_anim_animationSettings 9a_timeGetTime compilePath s_anim_CurrentObject startAnimTimer selectionHandles s_anim_PathObject buttonClick _stopAnimTimer s_anim_dy sizeTarget vertexPosition s_anim_dx newVertice error anim_edit moveTarget editorScripts s_anim_CurrentObject s_anim_selectedVertex s_anim_PathObject doneAnimatingnotify sliderMax sliderMin curPos thumb sliderPos usliderPageSize sliderMax thumbBounds sliderBounds sliderMin sliderPos slider slider_mode nearestPupp nearestPUPP pageSlider pageSlider slider_mode buttondown pageSlider buttonstilldown pageSlider slider_mode buttondoubleclick slider_mode buttonup author wordwrap field refBtn keyDown Cancel >tbk_Container cancelBtn defBtn tbk_IsWin95 skrefFocus enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus author wordwrap field refBtn keyDown >tbk_Container cancelBtn defBtn Close tbk_IsWin95 skrefFocus defBtn enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus TLHighlight sizedObj Border Highlight2 TRShadow TabShadow2 Shadow Highlight Shadow2 TabShadow resize resizeBorder TLHighlight sizedObj Border Highlight2 TRShadow TabShadow2 Shadow Highlight Shadow2 TabShadow resize resizeBorder w, #Z >tbk_Container on the Tools menu also depend on this system book. Tools menu of Multimedia ToolBook at Author level if this WarnRemoveSysBook x Other authoring tools such as the Property Editor and most of the commands Ntbk_GetString HshortFileName system book ("%1") is not linked. This Preferences dialog box won't be available on the warning w, #> Cancel myBkName >tbk_Container WarnRemoveABook X Remove anyway Warning: If you remove the system book "ctb30a.sbk", CBT Edition authoring functionality will be impaired. Ntbk_GetString HshortFileName fixScroll ctb40a.sbk canStr remStr Awarning startupSysbooks buttonclick initEnabled buttonclick startupSysBooks initEnabled page rIsNumber RulerToPu PuToRuler keyChar GridSpacing page propValue sanityCheck sanityCheck leavePage gridError The grid spacing you chose is out of range (30 4320 page units). Ntbk_GetString propValue propValue Resetting to previous value. sanityCheck puToRuler GridSpacing GridSpacing page propValue 1, "V 1, "V <+V!8 .', #? w, #> w, #> w, #> w, #> <+V!! 8anxCelAnimRef animList anxSearchHD background tbk_lastWin FALSE stbk_thisBook 8anxCelAnimRef pkgPrompt Information curClip FileExists HshortFileName Question OpenFileDlg Packaging Completed Successfully. ListToTextline OpenFileDlg SortList msgBox anxSearchCD anxSearchHD minimalPaths animator Packaging completed, however 1 or more clips were skipped. srcFile mediaPath statusBar CopyError Would you like to include animations in the packaging operation? This will require walking the book to create a list of the animator objects. Find Media File YesNo (SfindFile clipPkgPrompt setCurrentDirectory copyAll moveAll Packaging was incomplete. YfindClip MTB40ANX.TBX OkCancel iCopyFile CDaudio,VideoDisc,VCR,overlay moveError This book contains clips that refer to Hard Disk media files which are in directories relative to this book. Is it alright to add to the Hard Disk media path? SetCurrentDirectory SetCurrentDrive CopyFile FileExists MoveFile RemoveFile No animators were found. anxSearchCD This book contains clips that refer to CD-ROM media files which are in directories relative to this book. Is it alright to add to the CD-ROM media path? tb40dos.dll Exclamation 9hdPaths tb40dlg.dll setCurrentDrive anxCnt eMoveFile BinPaths copyError insertPlaceHolder 5cdPaths packageClips mediaPath w, #> tbk_lastWin FileExists 8anxCelAnimRef findClip FileExists findFile FALSE mediaPath inPaths .', #? tbkToolsDlg Choose Package Option clipPkgPrompt pkgPrompt YesNo msgBox Exclamation . There may not be enough disk space or the file may be open. Would you like to continue packaging? There was a problem copying the file copyError RemoveFile YesNo msgBox Exclamation iCopyFile There was a problem moving the file . The file may be open. Would you like to continue packaging? moveError shortFileName removeDuplicateItems mKreplaceRelativePath sortList minimalPaths sortList removeDuplicateItems w, #> w, #> animList FileExists stbk_thisBook 8anxCelAnimRef mediaPath tbk_lastWin HshortFileName anxSearchCD 8anxCelAnimRef anxSearchHD idirectoryOnly replaceRelativePath w, #> w, #> animList tbk_lastWin stbk_thisBook 8anxCelAnimRef mediaPath HshortFileName 8anxCelAnimRef replaceExplicitPath directoryOnly insertPlaceHolder FALSE itemExists Cancel MessageBox MessageBox YesNo Ignore Exclamation system Information AbortRetryIgnore OkCancel Abort Question YesNoCancel RetryCancel Retry msgBox propname textscrolled false ^-adjustscroll buttondown false ^-adjustScroll buttonstilldown ^-adjustScroll buttonup false ^-adjustScroll keyDown false \updateBrowser Ntbk_GetString ^-adjustScroll Tsetprop stbk_curOb stbk_propNames stbk_propValues propName keyup propValFld >tbk_container cheader FALSE Double-click to add a user property. DblClickAddSysVar Ntbk_GetString stbk_curOb propNameFld Double-click to add a SYSTEM variable. DblClickAddUserProp updateHeader stbk_curProp statusBar propValue propName adjustScroll tbk_reset f5 TLHighlight sizedObj Border Highlight2 Shadow TRShadow VHighlight2 TabShadow2 Tab Border ?oldbasebounds Highlight ?oldbasebounds VHighlight TabShadow resize resizeBorder userProperties "tbk_wid_currentTab WidgetProperties properties Widget "tbk_wid_currentTab tbk_lastWin \updateBrowser stbk_curOb stbk_propNames stbk_propValues myAction "tbk_wid_currentTab leaveBackground w, #? resize regular _CurrentTab active tab area qmyAction _CurrentTab ]$baseRad tbk_wid_currentTab _CurrentTab tbk_wid_currentTab .'+ +F w, #? w, #? .'+ +F Tab number must be 2 to 7. ownerObj regular of background id tab 1 tbk_wid_numTabs oldNum seedgrp tbk_wid_numTabs tbk_wid_numTabs -#, #? ^$baseRad resizeTab resize sizedObj tabHeigth currentTab tbk_wid_tabHeight _CurrentTab active tab area _CurrentTab tabHeight sized ,"J-Y TLHighlight TRShadow Shadow Highlight border resizeTab tbk_wid_tabText tbk_wid_tabText .', " You must first select two or more items. Ntbk_GetString MustSelect2Objects sortbyposition spread objList Ntbk_GetString sortbysize smallest MustSelect2Objects You must first select 2 or more objects shrinkgrow minlayer lowestlayer newpos curob objList You must first select an object. horz,both vert,both Ntbk_GetString MustSelectAnObject bkSize center ,&H.& curOb stwoDquicksort sortbyposition ,&H.& curOb stwoDquicksort sortbysize stbk_noSwap |CtwoDquicksrt twoDquicksort stbk_noSwap |CtwoDquicksrt twoDquicksrt requestArray ,&H.& objList group bottomLine topline button rectangle ThreeDeeRect curObj paintObject threeDeeRect field combobox curObjType topLine bottomline threeDeeRect ,&H.& rectangle,field,recordfield threeDeeRect Group MustSelectRectOrField topcolor objList group bottomLine topline Ntbk_GetString rectangle ThreeDeeRect curObj topLine sculpted field rectangle,scrolling You must first select a rectangle or field curObjType bottomColor bottomline xThreeDeeRect Text file (*.txt),*.txt TB40DLG.DLL saveAsDlg Export Text rtf file filter Ntbk_GetString Rich Text (*.rtf),*.rtf Text file filter k+tbkGetString SaveAsDlg exportText .'+ +F Cancel ImportTextFileFilters fileSize Import Text getFileSize Ntbk_GetString ImportFileTooBig oldCursor TB40dos.dll %1 is too large to import. File size is %2; cannot exceed %3. getFileSize Rich Text Files (*.rtf),*.rtf,Text Files(*.txt),*.txt,All Files(*.*),*.* TB40dlg.dll OpenFileDlg Warning: this will replace the current contents of your field. openFileDlg {\rtf WarningReplaceFieldText importText >tbk_Container Ntbk_GetString Generic modal DB s_dbresult Check Book Hyperlinks CheckHyperlinkOptions report file name =@setToolBookIniItem cancel s_dbResult propvalue remove paths propValue format report format resynchronize Hyperlink Checker repair report file name 6getToolBookIniItem remove paths format report format resynchronize Hyperlink Checker propValue repair enterPage cancel tbk_WinHelp MTB40.HLP thumbwidth labelWidth sliderMin sliderPos LnumTics W\adjustNumbers thumbWidth thumb LnumTics sized sliderMove sliderMax sliderMin mysliderPos sliderMax sliderBounds sliderMin nearestPupp thumb nearestPUPP sliderPos sliderMax labelWidth curfield sliderMin DxCenter LnumTics adjustNumbers xCenter mySliderMax sliderMin W\adjustNumbers is invalid. sliderMin sliderMax sliderMax sliderMax mySliderMin W\adjustNumbers is invalid. sliderMin ,&H.& myTallTicSpacing W\adjustNumbers tallTicSpacing curLine sliderMax sliderMin thumb sliderMax sliderBounds W\adjustNumbers sliderMin numTics must be a value between 1 and 50. myNumTics nearestPupp nearestPUPP leftMost numTics myTallTicSpacing tallTicSpacing mySliderMin sliderMin myNumTics numTics mySliderMax sliderMax sliderMax sliderMin thumb sliderMax sliderBounds sliderMin nearestPupp nearestPUPP sliderPos startSliderMove sliderMove endSliderMove nearestPUPP getsystemmetrics enterpage getsystemmetrics primaryMouseButton author wordwrap field refBtn keyDown Cancel >tbk_Container cancelBtn defBtn tbk_IsWin95 skrefFocus Choose enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus ,&H.& ,&H.& obType itemNumber tbk_bookRef pgRef ftsSetPage Pages Using Keyword ' bkRef `/ftsTextlineToList object uogetTitle +niceRef sftsTitleLoc Building list of pages, please wait... Building Page List pgKeywords ftsKeywords closeWaitDlg keywords obName where used openWaitDlg dialog trueValue page reference is not currently used. > vwrRef included books pages incBooks < Keyword buttonClick keywords obType obRef xzftsTitle sftsTitleLoc `ftsTitleValue ftsTitleOverride text of titleRef titleLoc obType obRef pgRef titleRef sftsSetFile sftsTitleLoc titleLoc title getTitle -$, #? 1, #> Page number niceRef of book bkName splitPath niceRef .'+ +F ,&H.& ttbk_linkIniFileFuncs readObjProps enterBackground .'+ +F author newPage NewBackground propType secName propType ,secName iniFile field,recordfield,button,group,comboBox tbk_iniFile propType secName iniFile defVal tbk_IniName defSecName readIni oType propName 6getToolBookIniItem system tbk_IniName startup defSecName propValue +readIni propsRead Startup Preferences defVal readIni oType propName readObjProps .'+ +F ,&H.& propType secName applyNow tbk_bookRef field,recordfield,button,group,combobox WarnStartupChange The new settings will take effect startupSysBooks Ntbk_GetString ,secName sysProp tbk_IniName the next time you start Multimedia ToolBook. startup bookref You specified a change in the startup system books setting. propValue system defSecName =@setToolBookIniItem propType propType secName applyNow s_wid_targetWindow s_wid_targetObject sysProp tbk_IniName bookref defSecName oldStartupSysBooks oType propValue propName set sys tbk_IniFile oldStartupSysBooks default oType propName Startup Preferences propValue metric retval putoRuler roundtoNearestN metric RulertoPu roundtoNearestN fType newTxt field fType decimal paste -0123456789 fType decimal fType allowed keyChar fType fType decimal leavefield enterField .'+ +F .'+ + GappList TB40DOS.DLL fileExists appList initDlg shortName iconDisplay exe icon fileExists thisBook newResource newIcon HshortFileName default icon tbk_bookRef buttonRef showIcon appList Could not find book %1. File not found. fileExists Could not find book x appStuff No applications are set up in the ToolBook.ini file. Ntbk_GetString File not found NoIniApps appName mTB40.exe 06cleanup runApp 06cleanup cancel iconDisplay itemoffset thisBook default icon,Property Editor,exe icon,wait,info curIcon buttonRef iconName cleanup ,&H.& ttbk_linkIniFileFuncs tbk_iniFile GetIniVar Add on Tools tbk_getWinPointer appList ,&H.& itemOffset s__edarrayResult = s_EditArray [][]; false s_editArray system clear array edit clear @ ;clear s__edarrayName Array s__edarrayResult s__edarrayName false ownerobj s_editArray arrayName clear editArray _edit2Darray s_EditArray update enterPage s__edArrayResult clear s__edArrayResult clearArray s__edArrayResult cancel closeWindow s__edarrayResult = s_EditArray false s_editArray system s__edarrayResult s__edarrayName false ownerobj s_editArray arrayName clear editArray clear array edit clear @ ;clear s__edarrayName Array _edit1Darray s_EditArray update enterPage s__edArrayResult clear s__edArrayResult clearArray s__edArrayResult cancel closeWindow enterField decrementnum x(incrementnum update keyDown false incrementnum false decrementnum cancel decrementnum x(incrementnum risNumber oldText update keyChar update update clear paste .'+ +F , /E8 , /E8 , /E8 , /E8 , /E8 , /E8 , /E8 GcheckPathAnimLimits Please reduce either the duration in seconds or the steps per second. false ,"lineVertices Variable Ntbk_GetString 1_curveVertices The animation contains too many frames. $ w, #> objName Text: _HyperLinkDB right Warning: The script of this object contains a %1 message Ntbk_GetString s__HL1DlgResult Button Click FindConflict TextColon Itbk_Ellipsize hotword _asym_hyperlinks triggerText -- This object has hyperlink properties \ tbk_NameOrID handler that may prevent the hyperlink from working correctly. tbk_HasHyperLinks _asym_hyperlinks buttonClick WarningHasGoCommandScript ScriptTag _HyperlinkProperties ,&H.& ,&H.& handle forward buttonUp send back send next send first buttonClick send last transition send previous FindConflict LinkInfo standard triggers >tbk_Container itemOffset defaultLinkType Hyperlinks Link To What wait cursor popup style EditedLinks s__HL1DlgResult _tbk_HyperlinkLinkInfo UMEditLinkTriggerName link page name BadLinkIndicator popup,jump 6getToolBookIniItem Wait Cursor Browse Transition linked trigger linkType iniFile Link to specific linkPgRef )EditLinkType false s_db_EditedLinks tbk_iniFile You must save your book at least once to give it a file name before you can create hyperlinks. Popup Style linkTypeCB Link Type linked object name s_db_TriggerName pgNameFld GlEditLinkTriggerText linkToWhatGrp propValue Hyperlink properties DB waitCursorBtn _HyperLinkDB enterPage .'+ +F ToWhat s__HL1DlgResult pgRef Link To What page %1 Transition Previous TMEditLinkTriggerName =@setToolBookIniItem CTB40R.SBK popup style tbk_lastWin To what transFx propValue tbk_IsNumber They both evaluate to page number %1. wait cursor TB40HYP.SBK Link Page Name useWaitCursor Wait Cursor Links to a page whose name is a number will not work correctly because ToolBook makes no Hyperlinks You should rename the destination page linkType Popup Style First before creating this link. WarnLinkToNumberName s_db_EditedLinks thisPage SetIniVar , Tse Link Type distinction between 3D_tbk_ClearHyperlink Ntbk_GetString page "%1" cursN TB40win.dll Link Book Name s_db_TriggerName s_db_LinkType pgRef s_db_TargetObject thisPage linkType ToWhat transFx cursN s_db_TriggerName useWaitCursor s_db_EditedLinks s__HL1DlgResult 0_tbk_AddHyperlinkToArray EditedLinks Cancel Bad Link badLinkIndicator enterButton enterField enterComboBox winActivated .'+ +F ,&H.& .'+ +F Hyperlinks for page No hyperlinks on this page jtbk_trim s_ds_oCnt title Ntbk_GetString s_ds_cnt human Generic modal DB txtFld tbk_ObjectsWhere short Hyperlink Inspector \ tbk_NameOrID VHyperlinkInfo oList d{HasLinksFilter >tbk_Container No hyperlinks on page _ShowHyperlinks tbk_HasHyperlinks(it) = TRUE or tbk_HasAnsArray(it) = TRUE HasLinksFilter Check WalkHyperlinks _CheckHyperlinks WalkHyperLinks _DumpHyperlinks .'+ +F w, #> .'+ +F ,&H.& ,&H.& ,&H.& ,&H.& w, #? .'+ +F dataTab itemOffset defPath Record bad hyperlinks of this book in file... s_tbk_dumpFile s_ds_oCnt total %2 links bgList saveAsDlg s_ds_cnt SaveHyperlinkChooseFormat TabSepData tbk_OpenEndedProgress PrettyFormat prettyStr SaveBadHyperlinkReportIn Choose a file format for the Hyperlink report file: %1 objects with hyperlinks, (*.txt),*.txt s_tot_oCnt SaveHyperlinkReportIn Save report on all hyperlinks of this book in... saveAsDlg oList Cancel Object%1Trigger Event%1Response event%1Link Type%1Dest. Page Name%1 INTERRUPTED prompt s_cancel Text file checkExprs false TB40DLG.DLL Ntbk_GetString human filterList defName pathOfFile Hyperlinks in book %1 tbk_ObjectsWhere %2 bad link(s) found Tab-separated data SaveHyperLinkFancyStr Pretty tabSepStr Bad hyperlinks in book %1 d{HasLinksFilter HshortFileName DumpObjHyperlinks Dest. Book%1Transition%1Popup Style WalkHyperLinks w, #> w, #> ,&H.& charString objName human 0]GetHyperlinks 7expandObjName tbk_HasHyperlinks HyperlinkInfo w, #> w, #> ,&H.& s_ds_oCnt charString %1 objects s_cancel objName %2 links %1 objects checked bad links Ntbk_GetString CheckingHyperlinkProgress Checking hyperlinks s_ds_cnt human %2 bad links tbk_OpenEndedProgress objects checked Checking hyperlinks: DumpingHyperlinkProgress 7expandObjName objects s_ds_bad s_tot_oCnt GetBadHyperlinks Dumping hyperlink data 0]GetHyperlinks links Dumping hyperlink data: DumpObjHyperlinks charString -$, #? of page short expandObjName XHLDetail tbk_HasHyperlinks _asym_hyperlinks GetHyperlinks HLBadDetail tbk_HasHyperlinks _asym_hyperlinks GetBadHyperlinks C6_tbk_HyperlinkIRow badList s_ds_cnt s_ds_bad badTag HLRowDetail _tbk_BadLinksList HLBadDetail s_ds_cnt HLRowDetail HLDetail of book HLTestItem HLBook HLPage Ntbk_GetString human HLSty HLName HLType popup HLRowDetail pgRef >tbk_Container fName tbk_FindHyperPage thisBook destBook fpath HshortFileName pathOfFile \ tbk_nameOrID thisPath 5tbk_altPgName _tbk_BadLinksList ClastSel enterPage tbk_reset pageListWithIDs excludeLine pgLst excludeLine UpdateSelf buttonUp keyDown link book name >tbk_Container DefaultButton excludeLine skrefFocus propValue selectionChanged pageIDNumber w, #> .', #> \ tbk_nameOrID pageListWithIDs .', #? Page ID nameOrID buttonDoubleClick s_ctba_bldfn tbk_CurrentDirectory badlinks.txt propValue enterPage >tbk_Container FALSE trueText Itbk_ellipsize center Dump to file propValue s_ctba_bldfn trueText propValue prompt oldDir dummy defPath (*.txt),*.txt Text file saveAsDlg tbk_CurrentDirectory TB40DLG.DLL saveAsDlg pathOfFile Ntbk_GetString Record bad hyperlinks of this book in file... filterList propValue BadLinks.txt SaveBadHyperlinkReportIn *tbk_SetCurrentDirectory defName tbk_reset trasnexiR Rixensart DummyResName (cleanupDummy ,&H.& Change Backdrop cmd Backdrop 6getToolBookIniItem Change Backdrop Sample Ntbk_GetString Preview Add Backdrop preview sample FindBackdropObject Add Backdrop cmd enterBackground +DummyResName cleanupDummy pseudoFocus keyDown button,paintObject Backdrop FindBackDropObject resName restype get resourceInfo of isResource ,&H.& tbk_backdrop >tbk_container tbk_lastWin setBackdropScript tbk_LockMove Backdrop setBackdropScript setBackdropProps >tbk_Container Change Backdrop cmd Change Backdrop Ntbk_GetString FindBackDropObject Set Page Name Add Backdrop Add Backdrop cmd _ImportBackdrop 6getToolBookIniItem skrefFocus bitmap scroller Backdrop propValue enterPage .'+ +F w, #> .'+ +F w, #> .'+ +F .'+ +F Stretch To Fit OKToDeleteBackdropResource isResource Stretch button Sample noStr =@setToolBookIniItem setBackdropProps sample FindBackDropObject propValue No other object is using the old backdrop No, Import isHomonymResource yesStr Use the existing bitmap resource "%1"? Preview lastSelected oldfirst UseExistingBackdropResource x Cancel workWindow bitmap directory nothing false TheResource oldResource Ntbk_GetString dummyName NoDoImport Backdrop bgSize mungeResName bitmap scroller useButton bitmap 49tbk_RandomTag Import preview resName bitmap. OK to discard it? setBackdropScript button,paintObject Backdrop FindBackDropObject resName restype get resourceInfo of isResource .'+ +F cancelOK fUnoCancel cancel gUnoCancel 1, #Z mungeResName V, #> V, #> oldSDF result yymmddhh24minsec oldSTF seconds tbk_RandomTag author wordwrap field refBtn keyDown >tbk_Container cancelBtn defBtn Close tbk_IsWin95 skrefFocus defBtn enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus updateSettings enterPage sftsCntxt sftsTitle leavePage cancel keyDown obType itemNumber contextLine Options ftsContext pgRef sftsTitle sftsCntxt property pgKeywords newContext `/ftsListToTextline page keywords sftsSetFile object ftsContextValue kwLine `ftsTitleValue sftsKeywords lines ftsKeywords newKW exclude *ftsGetIniVar ftsTitleOverride sftsContexts text of Keywords reference index keywords xzftsTitle ftsIgnore Contexts titleLoc context object reference numLines contexts title updateSettings w, "V sftsSetFile Contexts pgRef `/ftsTextlineToList contexts sftsKeywords ftsTitleOverride newContext newContext ?4ftsSetIniVar ftsKeywords ]ftsInsertLine currKW lines yzftsTitle newKW currcontext *ftsGetIniVar context page keywords sftsCntxt newKW sftsTitle newKW property ftsContext Keywords currLine lineCnt exclude sftsContexts numLines title ftsIgnore saveSettings tabPressed tabPressed tabname J,tabMode obtype tabNum buttonclick etabLimit Cannot set tab tabPressed myTabMode tabMode tabLimit myTabMode tabMode mytabheight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? manual FALSE myNumTabs etabLimit Can only have Must have at least 1 tab arrangeTabs numTabs mynumtabs numTabs manual tabRef mynumTabs tabLabel tabHighlight tabHeight arrangeTabs myNumTabs obtype highlight mytabheight sized w, #> myTabMode tname myNumTabs mytabspace anchor arrangeTabs Choice enterPage cancel keyDown .'+ +F .'+ +F 1, #? ,&H.& .'+ +F sftsSetFile Cancel Continue enterApp send removeIndexMenuItems send removeMenuItems to handle removeIndexMenuItems PromptFTSChangeBooks This procedure will make changes to the scripts of all included books. handlerList removeIndexMenuItems send addIndexMenuItems to handle addIndexMenuItems leaveApp contStr fullTextSearch keywordSearch bookRef myHandler handle includeBooks To undo these changes, the script of this book must be edited. to handle leaveApplication This procedure will make changes to the script of this book. addIndexMenuItems end enterApplication to handle fullTextSearch to handle keywordSearch Could not locate leaveApplication addIndexMenuItems end leaveApplication *ftsGetIniVar to handle enterApplication Ntbk_GetString enterApplication To undo these changes, the scripts of these books must be edited. Options PromptFTSChangeBook modifyBooks ftsSearch Cannot navigate to x fts40mtb.dll pgRef ftsSearch Ntbk_GetString indexName You must build a Search Index for this book. Must create index first ftsIndexName Cannot navigate to %1. fullTextSearch ftsSearchKeyword fts40mtb.dll pgRef Cannot navigate to x Ntbk_GetString indexName You must build a Search Index for this book. ftsSearchKeyword Must create index first ftsIndexName Cannot navigate to %1. keywordSearch Full Text Search Full Text Search... Keyword Search... addIndexMenuItems Full Text Search Keyword Search removeIndexMenuItems addIndexMenuItems enterApplication removeIndexMenuItems leaveApplication ,&H.& fixScroll propValue propValue >tbk_Container background TB40WIN.DLL No saved configurations. tbk_IniFile Ntbk_GetString cfgLst No saved configurations Startup Configs GetIniVar +!popMenu !MpopMenu $disableEscape propValue fixScroll loadConfig w, #> Cancel cfgName >tbk_Container background [Startup Configs] section of %1. itemOffset false Oops. Recording error. YesStr ConfirmConfig x Please enter a name for this system book configuration: tbk_IniFile NoStr The name "%1" is already in use. Overwrite? Ntbk_GetString cfgLst propValue SetIniVar Startup Configs PromptOverWriteConfig x GetIniVar $disableEscape PromptConfigName This configuration has been recorded in the RecError saveConfig scrolling rectangle fixScroll leavePage 6updateprompt s_EditArray fixOverflow value edit prompt ClastSel ClastSel oldScroll update keyDown 6updateprompt s_EditArray value edit prompt ClastSel buttonUp buttonDoubleClick buttonStillDown ,&H.& fixOverflow V, #> ,&H.& numbers textScrolled \lastTickCount enterpage USER.EXE mmGetTickCount leavePage getTickCount mmGetTickCount myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia %uo)& .', #? +V!8 .'+ +F V, #> -$s>P 1, #? 1, #? sftsSetFile contextLine contexts tempPageRef sftsExclude stripExtension kwLine Options pgKeywords FALSE kfieldData numLines Initializing Index oldRSB sftsTitleLoc CWDFILE sftsBooks booksLeft lines sftsTextFlow sftsMainBk keywords 3modifyMTB40ini page id ftsRemoveIndex 2ftsSetErrornotify tbk_bookRef `/ftsListToTextline creationLog FIRST_CHAP CREATE oldPageRef sftsHwtags sftsVRef sftsContexts sftsExcludeFile Initializing index sftsIndexHandle Contexts KEYFIELDS sftsLogFile _9updateStatus Unable to find book sftsSections CONC_SECTION dialog ?4ftsSetIniVar aftsFileExists Removing Existing Index Files TextFlow 'ftsGetErrornotify errorState itemNumber sftsValidObs sftsKeywords R,ftsInitIndex Keywords includedObjects sftsContextList Create Search Index ***Unable to find Book excluded Opening log file: includeBooks pageStr *ftsGetIniVar titleLoc context sftsErrorNotify indexName Reading Settings Removing old index files Creating excluded word file: createIndex _9updateStatus Begin scanning MftsBuildIndex Building Index Index generation complete. nwalkAllObjects Building index. Scanning Book errorState Done. 2ftsSetErrornotify ftsIndexName creationLog booksLeft End scanning sftsVRef 06cleanUp sftsIndexHandle sftsErrorNotify splitPath indexName nextBook w, #? 1, #? ,&H.& .', " ,&H.& pgTitle ftsContext walkObjects RcleanRef uogetTitle ftsFindLine ftsContextValue ***New Keyword: curContext sftsKeywords ftsKeywords Adding Page sftsContexts errorState ftsAddPage creationLog ***Untitled Page - Excluding ftsIgnore sftsIndexHandle ggetContextNum ***New Context: walkAllObjects -$, 7 RecordField hwtag obRef ftsAddSectionsToPage sftsExclude recordField Background hwtag obRef obNum curObjType sftsContexts objList sftsHwtags sftsExclude bookRef backgrounds sftsTextFlow sftsKeywords recFieldCount backIndex sftsVRef recIndex sftsTextAdded sftsIndexHandle tlist curObj objecttoWalk sftsSections sftsValidObs rfList sftsValidObs ***Unknown Tag: itemNumber background sftsTextFlow creationLog Adding Sections for recIndex Hotword obNum curObjType Failed Adding Sections for ftsTag sftsHwtags Scanning V@addObjectText _9updateStatus sftsIndexHandle Field sftsTextAdded walkObjects statusbar sftsVRef updateStatus obName richText of button caption of retVal field ftsAdditionalText of text of comboBox dropdownitems of textExp ftsContext itemNumber RftsAddContext ftsContextValue sftsContextList errorState Adding Context contextName contextNum sftsIndexHandle getContextNum sftsLogFile creationLog obType obRef xzftsTitle sftsTitleLoc `ftsTitleValue ftsTitleOverride text of titleRef titleLoc obType obRef pgRef titleRef sftsSetFile sftsTitleLoc titleLoc title getTitle 1, #> bkName splitPath cleanRef .'+ +F w, #> Error %ftsGetErrorString 06cleanUp sftsIndexHandle errorState .'+ +F sftsLogFile sftsSections sftsExclude sftsHwtags sftsTitleLoc sftsValidObs oldRSB sftsTextFlow sftsBooks sftsKeywords oldPageRef sftsContextList standard tbk_bookRef sftsIndexHandle booksLeft oldPageRef oldRSB sftsVRef sftsContexts sftsErrorNotify indexName cleanUp ***Unknown Section: ftsAddSectionsToPage sftsSections ***Failed Adding Section for sftsExclude zrftsAddTextToSection FALSE sftsValidObs ftsExclude itemNumber sftsTextFlow ftsExcludeValue SZtextExp ftsSection creationLog ftsSection tmpObj hidden sftsIndexHandle page,background sftsTextAdded addObjectText STSPARMS {:ftsDosString ?4ftsSetIniVar MTB40.INI CHARSET STSPATH CHARSET.STS section tempDir TMPDIR *ftsGetIniVar charSet modifyMTB40ini 6getToolBookIniItem updateBitmapList somethingSelected backdrop resource Backdrop propValue Resource Import backdrop firstIdle tbk_reset .'+ +F .'+ +F .'+ +F ListToTextline SortList >tbk_Container defaultbutton jtbk_Trim nothing ListToTextline bmpList lastSelected dummyName +dummyResName TB40dlg.dll SortList bmpID skrefFocus updateBitmapList lastselected lastSelected keyUp keyDown lastselected lastSelected buttonClick .'+ +F .'+ +F errfld infofld >tbk_Container oldBmp sample sample backdrop sampleObj No Resource propValue +dummyResName of book bitmap resource bitmap info Preview bmpDesc propValue somethingSelected w, #> thumbnai\ HshortFileName pathOfFile makeThumbnailName .'+ +F lastSelected somethingSelected lastSelected lastSelected propValue ,&H.& HshortFileName lastSelected tbk_ScrollListBoxToSelection propValue FALSE s_anim_sizing s_anim_lastLoc buttonDown NSPartner W_handle NE_handle S_handle switchRect SW_handle EWPartner E_handle s_anim_sizing N_handle s_anim_CurrentObject selectionHandles oldName SE_handle NW_handle s_anim_lastLoc w7crossPartner buttonStillDown do_enddrag FALSE showHandles s_anim_dy s_anim_dx s_anim_animationSettings s_anim_sizing editorScripts s_anim_CurrentObject s_anim_selectedVertex s_anim_lastLoc buttonUp crossPartner EWPartner NSPartner W_handle NE_handle S_handle SW_handle E_handle objBounds N_handle s_anim_CurrentObject selectionHandles SE_handle NW_handle showHandles Cancel keyDown sliderMax yshowPath s_anim_dy BottomBar sliderPos anim_edit vertexPosition objectAnimation updateSettings s_anim_dx startPos Settings slider s_anim_animationSettings $offsetPathBy s_anim_CurrentObject selectionHandles showHandles s_anim_selectedVertex s_anim_PathObject createPath editPath 0,0,-2880,0 FALSE sliderMax showHandles s_anim_dy BottomBar sliderPos updateSettings s_anim_dx startPos settings slider s_anim_animationSettings $offsetPathBy s_anim_CurrentObject constant selectionHandles s_anim_selectedVertex s_anim_PathObject 0,0,2880,0 yshowPath createPath .'+ +F sourceObject BottomBar The path has been saved as animation of the object. $offsetPathBy theVertices anim_edit vertexPosition Canim_startPosition s_anim_dx objectAnimation startPos s_anim_sourcePage s_anim_animationSettings compilePath s_anim_CurrentObject anim_startSize selectionHandles s_anim_selectedVertex s_anim_dy s_anim_PathObject s_anim_CurvedVertices savePath .'+ +F drawCurve |.verticeCount point2 previousPoint point1 drawHandle compiler editorScripts edrawLine hypotenuseFromVertices s_anim_segLengthList showPath offsetPathBy enterPage leavePage leaveBackground "tbk_wid_currentTab leaveBackground .'+ +F w, #? .'+ +F resize regular _CurrentTab active tab area tabPressed _CurrentTab ]$baseRad tbk_wid_currentTab _CurrentTab tbk_wid_currentTab .'+ +F w, #? w, #? .'+ +F Tab number must be 2 to 7. ownerObj regular of background id tab 1 tbk_wid_numTabs oldNum seedgrp tbk_wid_numTabs tbk_wid_numTabs -#, #? ^$baseRad resizeTab resize sizedObj tabHeigth currentTab tbk_wid_tabHeight _CurrentTab active tab area _CurrentTab tabHeight sized ,"J-Y TLHighlight TRShadow Shadow Highlight border resizeTab "tbk_wid_currentTab leaveBackground .'+ +F w, #? .'+ +F resize regular _CurrentTab active tab area _CurrentTab ]$baseRad tbk_wid_currentTab _CurrentTab tbk_wid_currentTab .'+ +F w, #? w, #? .'+ +F Tab number must be 2 to 7. ownerObj regular of background id tab 1 tbk_wid_numTabs oldNum seedgrp tbk_wid_numTabs tbk_wid_numTabs -#, #? ^$baseRad resizeTab resize sizedObj tabHeigth currentTab tbk_wid_tabHeight _CurrentTab active tab area _CurrentTab tabHeight sized ,"J-Y TLHighlight TRShadow Shadow Highlight border resizeTab .'+ +F cancel okbtn >tbk_Container s_cancel gauge progress Script Dumper ShowDumpProgress .'+ +F .'+ +F ,&H.& ,&H.& ,&H.& w, #> .'+ +F charString linsStr defPath TB40DOS.DLL s_cancel s_ds_oCnt oList bgList saveAsDlg s_ds_cnt showDumpProgress GetFileSize Text file filter saveAsDlg ZDumpObjscript objStr Dump cancelled script lines RemoveFile prompt DumpScriptPrompt Dump All Scripts Of This Book To File... Text file (*.txt),*.txt objsStr TB40DLG.DLL !!!! INTERRUPTED BY USER!!!! Ntbk_GetString s_ds_PgCnt objects with script filterList defName Dump complete s_ds_PgN PathOfFile GetFileSize RemoveFile ZDumpObjScript HShortFileName itemOffset _DumpScripts w, #? w, #? w, #> w, #> w, #> script lines charString s_cancel DumpingBookScripts objects with script s_ds_oCnt Ntbk_GetString s_ds_cnt Dumping Book Scripts showDumpProgress s_ds_PgN 7expandObjName s_ds_PgCnt DumpObjScript charString -$, #? of page expandObjName object of interest objCbBox propValue inspectType GwasRightClick acheckSelection doNotUpdate windowEntered stbk_lastSelObj stbk_curOb leavePage yhelpText statusBar mouseEnter statusbar mouseleave tabfolder stbk_curOb "tbk_wid_currentTab keyMnemonic .'+ +F stbk_customPropInfo stbk_cursor stbk_customPropFlag resize tbk_lastWin tbk_lastWin previous tbk_lastWin first tbk_lastWin tbk_lastWin background tbk_lastWin newPage tbk_lastWin tbk_reset refObj tbk_reset homeBase stbk_curMode stbk_propTypes object of interest stbk_propValues objInt GwasRightClick stbk_curOb \updateBrowser objectOfInterest trueValue stbk_propNames stbk_curProp tbk_ObjectOfInterest objectOfInterest checkSelection .', " w, #? .', " sysCursor to propval tabfolder Error when compiling script: tbk_lastWin is a standard property that cannot have a NULL value. errNum propval Ntbk_GetString PropNameErr1 firstLineOnly propSetTabs errNum propval stbk_cursor objRef executionBuffer firstLineSpec propname "tbk_wid_currentTab stbk_cursor textline 1 of window cancelled propSetTabs refObj setSysVar setProp varValue varName system = varValue setSysVar system varName sysVarValue .'+ +F .'+ +F tabFolder tbk_lastwin "tbk_Wid_CurrentTab script ShowUserProps tab 3 itemOffset stbk_curProp FALSE showUserProps page,background,book,viewer object of interest System Properties,System Variables POtbk_wid_props fakeObj objComboBox tab 1 widget showWidgetProps stbk_curOb `skipFlag stbk_cursor objType tbk_bookRef showProps GwasRightClick stbk_propNames tbk_wid_tabtext propSetTabs stbk_propValues refObj tbk_lastWin stbk_propTypes Property Editor Properties,Widget Properties Standard Properties,User updateBrowser ,&H.& .'+ + obType propValFld propNamFld updateHeader propGroup FALSE stbk_propTypes systemVars propGrp tbk_lastWin does not have SortList propValFld propNamFld homebase vlist vValues FALSE propGrp stbk_propNames curProp stbk_curOb vNames stbk_propValues stbk_propTypes TB40Dlg.DLL curProp lists stbk_propNames stbk_curOb stbk_propValues SortList propValue propValue propName showUserProps ,&H.& s_tbk_ nameFld tbk_lastWin stbk_ system s__tbk_ loc_i loc_ss loc_vlist stbk_propNames nameFld loc_vNames stbk_curOb loc_vValues stbk_propValues stbk_propTypes stbk_propNames stbk_propValues loc_ss propValue propName systemVars ,&H.& 1, #? ,&H.& ,&H.& .'+ + listToTextLine SortList sysCursor propValFld oldSys propNamFld propGroup tbk_lastWin recordfield w_wid propValFld oldSys buffer homeBase propNames bookref stbk_cursor stbk_propNames clearList propValues stbk_curOb propNamFld stbk_propValues stbk_propTypes propName updateHeader obType listToTextLine bookref stbk_propTypes TB40dlg.dll stbk_curOb stbk_cursor tbk_bookRef =isValidObject %systemTypes #systemProps stbk_propNames buffer stbk_propValues SortList propValue propValue of obj ERROR accessing property: propName showProps w, #> w, #> w, #> .'+ + obtype propValFld w_propNames propNamFld cheader tbk_lastWin tbk_wid_name stbk_propTypes propValues obType propGroup bookref obref w_wid_Name w_wid_type stbk_curOb =isValidObject (Widget) tbk_bookRef w_propListText stbk_propNames tbk_wid_type stbk_propValues tbk_wid_name updateHeader propValue (9w_propValues propName showWidgetProps ,&H.& itemOffset sizeToPage w, #> of book refObj +!popMenu TB40win.dll HShortFileName !MpopMenu ChooseDropObject POtbk_wid_props bookref tbk_bookRef w_propNames ,&H.& POtbk_wid_props bookref propNames propValues bookref tbk_bookRef w_propValues rptbk_wid_values tbk_bookRef lst_widget w_propListText tbk_bookRef #systemProps f_systemProps %systemTypes tbk_bookRef f_systemTypes AuthorMenuItemMissing AuthorMenuMissing NeedToBuild mm_media buildBaseToolMenu spread FALSE tbk_shrink AuthorMenuMissing tbk_spreadhorz tbk_ScriptMenu tbk_text mm_MediaWidgets tbk_ShowHyperlinks center tbk_ChooseBackdrop tbk_centerHorz tbk_HyperlinksMenu tbk_importText tbk_Backdrop indexing AuthorMenuItemMissing B@buildAuthorSubMenu tbk_DumpScripts +wbuildIndexMenu tbk_tools buildIndex _enterMenu Packages clip media files. &Applications...,tbk_AddOnApps,0,tbk_tools dummy Creates or modifies path animations. "_AddAuthorMenuItem Viewer/editor for properties and userProperties. Puts uniform spacing between the selected objects. Script utilities Inserts text or rich text from a file into a field or recordField. Base Tool Menu Si&ze>,size,0,tbk_tools Runs application specified in MTB40.INI file. &Center>,center,0,tbk_tools &Hyperlinks>,tbk_HyperlinksMenu,0,tbk_tools &Spread>,spread,0,tbk_tools Set values for SYSTEM variables on startup. Property &Editor,customEdit,0,tbk_tools Me&dia Widgets>,mm_media,0,tbk_tools Tools for working with Media Widgets Set Tab &Order...,tbk_TabOrder,0,tbk_tools &Backdrops>,tbk_Backdrop,0,tbk_tools -,,0,tbk_tools Centers the selected object(s) Add &3D Style...,tbk_3D,0,tbk_tools Adds or modifies 3D style of rectangles and fields. Media Pac&kager...,mediaPackager,0,tbk_tools Sets tabbing order of selected objects by position. Path Ani&mation...,PathAnimation,0,tbk_Tools Adds a backdrop object or changes the graphic in the current backdrop object. Hyperlink creation and auditing tools Ntbk_GetString Makes selected objects a uniform size. Pre&ferences...,tbk_startPref,0,tbk_tools &Text>,tbk_Text,0,tbk_tools Scri&pts>,tbk_ScriptMenu,0,tbk_Tools buildBaseToolMenu Show the handlers in the hierarchy for the selected object. Adds hyperlinks to the current object. Distributes selected objects based on space between the two left-most objects. spread &Hide Backdrop,tbk_HideShowBackdrop,0,tbk_Backdrop,tbk_tools Size Menu Setup &Show Handlers...,tbk_ShowHandlers,0,tbk_ScriptMenu,tbk_Tools &Check Book Hyperlinks...,tbk_CheckHyperlinks,0,tbk_HyperlinksMenu,tbk_tools tbk_Text Between &Sides,tbk_centerHorz,0,center,tbk_tools center tbk_HyperlinksMenu tbk_Backdrop Deletes the current backdrop object. &Horizontally,tbk_spreadhorz,0,spread,tbk_tools Spread Menu Setup "_AddAuthorMenuItem Backdrop Menu Setup &Dump Book Hyperlinks...,tbk_DumpHyperlinks,0,tbk_HyperlinksMenu,tbk_tools Performs search and replace on all scripts in the book. &Find/Replace...,tbk_ReplaceScripts,0,tbk_ScriptMenu,tbk_tools &Vertically,tbk_spreadvert,0,spread,tbk_tools Widget &Properties...,mm_WidgetProps,0,mm_media,tbk_tools Shows or hides the current backdrop object. Between &Top and Bottom,tbk_centerVert,0,center,tbk_tools tbk_ScriptMenu dummy Center Menu Setup Dump all scripts of this book to a text file. Exports text or rich text from a field or recordField to a file. Show hyperlinks for the current page. Text Tools Menu Setup Write Hyperlink audit report to a file. Inserts text or rich text from a file into a field or recordField. &Remove Backdrop,tbk_RemoveBackdrop,0,tbk_Backdrop,tbk_tools Hyperlinks Menu Setup &Import Text...,tbk_importText,0,tbk_Text,tbk_tools Adds a backdrop object to the current background. &Grow to Largest,tbk_grow,0,Size,tbk_tools Ntbk_GetString &Dump Scripts...,tbk_DumpScripts,0,tbk_ScriptMenu,tbk_tools &Both Ways,tbk_centerBoth,0,center,tbk_tools &Export Text...,tbk_exportText,0,tbk_Text,tbk_tools Distributes selected objects based on space between the two upper-most objects. mm_media Check the hyperlinks for the current page or book. Adds Media Widgets to the current page. &Add Hyperlink...,Hyperlink,0,tbk_HyperlinksMenu,tbk_tools Media Widget Menu Setup Script menu setup &Show Page Hyperlinks...,tbk_ShowHyperlinks,0,tbk_HyperlinksMenu,tbk_tools Edits the properties of Media Widgets. &Add Backdrop,tbk_ChooseBackdrop,0,tbk_Backdrop,tbk_tools Shrin&k to Smallest,tbk_shrink,0,Size,tbk_tools Media &Widgets,mm_MediaWidgets,0,mm_media,tbk_tools buildAuthorSubMenu &Build Index...,BuildIndex,0,indexing Creates or edits a hotword tag. dummy Sets page options for full-text searching. Index menu setup Perform a keyword search. Sets indexing options for the selected object., &Reader Level Settings...,ReaderLevelSettings,0,indexing &Index Settings...,IndexSettings,0,indexing &Keyword Search...,KeywordSearch,0,indexing Sets options for building a full-text search index. &Hotword Settings...,HotwordSettings,0,indexing Perform a full-text search. -,,0,indexing Ntbk_GetString Builds a full-text search index. "_AddAuthorMenuItem &Object Settings...,ObjectSettings,0,indexing Sets reader level options for full-text searching. Full Text &Search...,FullTextSearch,0,indexing &Page Settings...,PageSettings,0,indexing buildIndexMenu authorMenuFindExistingItem false submu _AddAuthorMenuItem _menuExists _alreadyOnMenu .', #? V, #> sftsSetFile contextLine tempPageRef oldRSB Options pgKeywords clean kfieldData `/ftsListToTextline kwLine sftsBooks lines FALSE sftsMainBk page id Updating Settings File field,recordField,button,comboBox tbk_bookRef booksLeft CREATE oldPageRef sftsHwtags sftsVRef sections sftsContexts includeBooks KEYFIELDS _9updateStatus sftsSections CONC_SECTION dialog Contexts aftsFileExists itemNumber sftsValidObs sftsKeywords bookCount Keywords pageStr *ftsGetIniVar context numLines Reading Settings updateFile _9updateStatus nwalkAllObjects sftsValidObs oldRSB oldPageRef Done. bookCount booksLeft oldPageRef oldRSB sftsVRef Scanning nextBook ,&H.& .', " ,&H.& ftsContext walkObjects ]ftsInsertLine sftsKeywords ftsKeywords sftsContexts walkAllObjects -$, 7 RecordField hwtag obRef sftsSections Background sftsValidObs itemNumber hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg Field ]ftsInsertLine recIndex Hotword ftsSection curObjType ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName .', #? V, #> sftsSetFile _9updateStatus contextLine Options tempPageRef `/ftsListToTextline pgKeywords kfieldData sftsValidObs oldRSB CREATE itemNumber kwLine Updating Books sftsBooks sftsKeywords lines includeBooks sftsMainBk Keywords sftsHwtags sftsContexts page id aftsFileExists sftsSections booksLeft tbk_bookRef dialog Contexts oldPageRef CONC_SECTION pageStr *ftsGetIniVar sftsVRef context sections numLines field,recordField,button,comboBox Reading Settings KEYFIELDS updateBooks _9updateStatus nwalkAllObjects sftsValidObs oldRSB sftsBooks sftsKeywords oldPageRef Done. booksLeft oldPageRef oldRSB sftsVRef Scanning sftsContexts nextBook .', " ,&H.& ftsContext walkObjects ftsFindLine ftsKeywords sftsKeywords ftsKeywords ftsContext sftsContexts walkAllObjects -$, 7 RecordField hwtag obRef sftsSections Background sftsValidObs ftsFindLine itemNumber Field recIndex Hotword hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg ftsSection curObjType ftsSection ftsTag ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName _9G!Z +!+^+ findString stbk_searchString stbk_replaceString replaceString Start initDlg <+V!8 <+V!! replace tbkToolsDlg search statusbar matchword nameOffset stbk_searchString stbk_asWord stbk_promptChange Found scripts Page/background/book scripts findString stbk_vRef r1tbk_freeWinPointer propValue tbk_bookRef stbk_foundList statusBar sMode SharedScripts of this book GwalkHierarchy tbk_getWinPointer range nwalkallobjects searchOb false stbk_vRef nameOffset stbk_canceled stbk_searchString stbk_replaceString stbk_foundList stbk_lpMsg stbk_promptChange stbk_searchRange stbk_searchOnly stbk_cnt stbk_asWord sMode stbk_firstFind value prompt searchOb false ytbk_linkMessageFuncs firstFind Scripts in object hierarchy Ntbk_GetString foundScripts replaceString findstring Scripts of all objects walkCurrentPage stbk_searchOnly stbk_canceled stbk_searchRange This page searchmode stbk_cnt stbk_firstFind Could not find "%1". stbk_replaceString stbk_lpMsg Could not find quote X Start This page and background tbk_linkMemFuncs cancel ,&H.& gIreplaceScript tbk_ObjectOfInterest HshortFilename cursel s_tbk_linkedSysbooks notifyObs curSysBook page,background walkHierarchy background itemOffset recordfield rfList hotword gIreplaceScript stbk_searchRange oList walkCurrentPage .', " .', " ,&H.& walkObjects gIreplaceScript false Scripts of all objects stbk_searchRange SharedScripts of this book stbk_canceled walkAllObjects _9updateStatus Background sharedScripts of this book sharedScripts gIreplaceScript stbk_searchRange curObjType stbk_canceled walkObjects 1, "j .', " , /Ep cancel _9updateStatus promptValue Cancel Search tbkToolsDlg -+*/<>,()[];^=&.?': itemOffset FALSE stbk_asWord Saving script of %1. stbk_searchString stbk_foundList wordDelimit stbk_promptChange Ntbk_GetString obRef Yes to all stbk_searchOnly stbk_canceled changePrompt Saving script of x curScript tbk_bookRef false stbk_firstFind stbk_cnt xcheckForPendingStuff Could not change script of x stbk_replaceString stbk_lpMsg Replace? curScriptChanged Could not change script of %1. replaceScript stbk_vRef statusbar updateStatus stbk_canceled buttonRef Start ,&H.& itemOffset searchmode tabPressed .', " .', " prompt instructions replacewith firstFind Search Scripts Search and Replace Scripts searchmode search replace replaceWith searchmode TB40WIN.DLL {keyF5} Cssendkeys {keyEscape}+{keyF5} sendkeys editScript keychar wm_keyDown pm_Remove wparam tbk_PeekMessage tbk_peekMessage wm_lButtonDown checkForPendingStuff sharedscript of Book obRef findString enterpage stbk_asWord leavePage findString firstidle defaultButton !+setDefButton setDefButton Array Editing Options 8Ctbk_GetIniVar ArrayEditEnabled .'+ hd 1, "Q ,&H.& ,&H.& 1, "Q cancel colorPaletteDlg tbkToolsDlg dummy2D = Cannot edit properties longer than 32000 characters. wType Cannot edit arrays. FchooseFontDlg propEdit edit1DArray TsetProp bold,italic Can only edit 1D or 2D array values. propVal \updateBrowser tbk_lastWin uProp retcolor DOUBLE Choose a graphic... CannotEditNDArray tbk_bookRef property FLOAT retval LOGICAL SHORT qrgbtohls POINT palette fontface Property Editor VALUE TabFolder VbuildEnumList propInfo Edit Value "tbk_wid_currentTab script fontsize stbk_customPropInfo STACK regular stbk_propTypes Bitmap (*.bmp),*.bmp,Icon (*.ico),*.ico,Windows Metafile (*.wmf),*.wmf TB40DLG.DLL Edit Property stbk_customPropFlag Ntbk_GetString colortype pageRef wTypeList upropsdlg VBXPICT Add UserProperty openFileDlg uprop TB40dlg.dll bitmap,icon,cursor setupstring window cancelled stbk_propValues _edit2Darray sysVarValue RESOURCE Cannot edit arrays fontname properties dummy1D = header ENUM LIST DWORD RGB COLOR curOb FALSE sharedscript STRING INDENTS _edit1Darray HLStoRGB rgbtohls HLS COLOR bookRef isSysVar NBdisplay custom Tsetprop VBXDIALOG nextValue multiLine fstyle Add SYSTEM variable CannotEditOver32K stbk_propNames ChooseFontDlg qhlstorgb qhlstoRgb propValue arrayEditEnabled updateFlag boolean color tabfolder fface false openFileDlg openDlg rgbtohls hlstorgb rType colorPaletteDlg bold italic fsize true,false UNKNOWN,LOGICAL,STRING,WORD,STACK,RECT,POINT,DWORD,VALUE,ENUM LIST,RGB COLOR,HLS COLOR,RESOURCE,INDENTS,SHORT,LONG,FLOAT,DOUBLE,SCRIPT widget UNKNOWN TB40win.dll found stbk_customDlgShown stbk_curOb doNotUpdate leader updateFlag propInfo cancel wType stbk_customPropInfo stbk_customPropFlag propVal bookRef uProp initString retcolor curList fstyle retval stbk_propTypes dlgString stbk_propValues curType pageRef updateFlag fface stbk_curOb curOb dummy1D dummy2D leader curVal fsize isSysVar colortype filterList wTypeList found rType FALSE setupstring stbk_customDlgShown stbk_propNames propName UNBOUND filterList dlgString curVal ArrayEditEnabled edit2DArray propName buttonDoubleClick tabFolder stbk_propTypes abcdefghijklmnopqrstuvwxyz_0123456789 widget fheader curType propValue propName keydown .', " itemOffset itmPos nextValue .'+ h propNamFld mScurProp tbk_lastWin LOGICAL VBXDIALOG tbk_bookRef string %systemTypes stbk_customPropFlag fontface VbuildEnumList propInfo userproperties propValFld tabfolder stbk_customPropInfo stbk_propTypes boolean true,false UNKNOWN,LOGICAL,STRING,WORD,STACK,RECT,POINT,DWORD,VALUE,ENUM LIST,RGB COLOR,HLS COLOR,RESOURCE,INDENTS,SHORT,LONG,FLOAT,DOUBLE,SCRIPT widget UNKNOWN wTypeList ENUM LIST headerType VBXPICT stbk_curOb stbk_propNames stbk_propValues UNBOUND propValue NBdisplay widgetproperties properties header propName updateHeader .'+ +F ,&H.& FALSE found spot2 default spot1 buildEnumList jfbfbf q2*%t6 removeLinks WinHelp ftsWinHelp WinHelp ftsWinHelpNum fileExists ftsFileExists removeFile ftsRemoveFile copyFile ftsCopyFile getDosEnvironmentString ftsDosString GlobalAlloc ftsGlobalAlloc GlobalFree ftsGlobalFree GlobalHandle ftsGlobalHandle GlobalLock ftsGlobalLock GlobalUnlock ftsGlobalUnlock fts40mtb.dll chooseDirectoryDlg ftsChooseDirectoryDlg openFileDlg ftsOpenFileDlg saveAsDlg ftsSaveAsDlg getFileListDlg ftsGetFileListDlg listToTextline ftsListToTextline textlineToList ftsTextlineToList KERNEL getIniVar ftsGetIniVar setIniVar ftsSetIniVar ftsRemoveIndex ftsInitIndex ftsAddContext ftsAddPage ftsAddTextToSection ftsAddSectionsToPage ftsBuildIndex ftsOpenIndex ftsCloseIndex ftsTagEntries ftsNamedSections ftsTags ftsContextCount ftsContextTitle ftsAllContextTitles ftsQuery ftsReQuery ftsSetContextScope ftsAllMatchingTitles ftsAllMatchingRefs ftsMatchTitle ftsMatchRef ftsGetOffsets ftsSetErrornotify ftsGetErrornotify ftsGetErrorNumber ftsGetErrorString ftsSearch ftsSearchKeyword sftsIndexingAvailable TB40dos.dll TB40win.dll TB40dlg.dll initlinks standard ninitlink Add Hyperlink Button tbk_bookRef vwrRef hyperlink ftsAddlink standard ninitlink newHW tbk_bookRef vwrRef Add Hyperlink Hotword hyperlink ftsCreatelink standard Edit Hyperlink Button tbk_bookRef ninitlink vwrRef hyperlink ftsEditlink standard Edit Hyperlink Hotword tbk_bookRef ninitlink vwrRef hyperlink ftsModifylink .', " fftsGlobalAlloc Ntbk_GetString FailedMemAlloc Failed allocating memory. memFlag retval @ftsGlobalLock ftsGetWinPointer ftsGlobalUnlock Memory error occured. Operation Aborted. ftsGlobalHandle :ftsGlobalFree ftsFreeWinPointer retVal entryPg kdataType entry tbk_bookRef dialog text entry entryDlg title textEntry initType retVal entryPg entry tbk_bookRef dialog value entry dataType entryDlg title tagEntry dialog `/ftsTextlineToList retVal entryPg kdataType entry tbk_bookRef itemTxt multi entry entryDlg title multiEntry ,&H.& itemNumber fileName initLinks stripExtension Search Settings Not Found aftsFileExists sftsInfoVal tbk_bookRef This book must be saved before this action may be performed. sftsMainBk +1infoDlg infoDlg setFile dialog ftsSetFile settings not found getSetFile retVal stripExtension splitPath ;This file defines global options for generating a Search Index. #HANDLE C Options textFlow CONC_SECTION Lines TXFSIZE ?4ftsSetIniVar aftsFileExists TITLE,YES includedObjects SPECIALS sftsMainBk MAXWRD CWDFILE MAXPAR FIRST_CHAP COMMWORD.TXT DEFAULT_SECTION #ARTREF A MAXCHP sectionName MAXART #KEYWORD C wordFile Keywords MAXP_PER_SECT MANAGER CREATE excluded OTHER,YES recordField,field incOptions default includeBooks NON_CONC_SECTION Contexts KEYFIELDS TITLE_SECTION writeDefaultSST sftsSetFile ftsSetFile getSetFile standard aftsFileExists sftsMainBk sftsIndexingAvailable +1infoDlg Create Search Index tbk_bookRef The full-text indexing engine is not available at this time. vwrRef ftsCreateIndex Full text searching is not available at this time. pgRef ftsSearch Full Text Search You must create a search index for this book before searches may be performed. sftsIndexingAvailable indexName Cannot navigate to bkName ftsIndexName splitPath +1infoDlg ftsSearchIndex Full text searching is not available at this time. pgRef Full Text Search Keyword Search You must create a search index for this book before searches may be performed. sftsIndexingAvailable indexName ftsSearchKeyword Cannot navigate to bkName ftsIndexName splitPath +1infoDlg ftsKwSearch sftsSetFile ftsSetFile getSetFile Index Settings standard [^stepBack aftsFileExists index settings sftsMainBk tbk_bookRef vwrRef ftsIndexSettings sftsSetFile ftsSetFile getSetFile standard aftsFileExists sftsMainBk reader settings tbk_bookRef Reader Level Settings vwrRef ftsReaderSettings sftsSetFile ftsSetFile getSetFile standard aftsFileExists Page Settings sftsMainBk page settings tbk_bookRef vwrRef ftsPageSettings sftsSetFile ftsSetFile pgRef getSetFile [None] standard FALSE aftsFileExists choice Hotword Settings Multiple hotwords are selected. Please select only one at a time. qkinitializePage sftsMainBk +1infoDlg newHW tbk_bookRef NoneBrackets selHW ftsTag ftsTag Ntbk_GetString vwrRef assign value ftsHWSet sftsSetFile secName hotword pgRef getSetFile [None] standard selOb aftsFileExists choice NoneBrackets Ntbk_GetString qkinitializePage sftsMainBk assign section ftsSetFile tbk_bookRef ftsSection ftsExclude exclude vwrRef Object Settings ftsObjectSet .'+ +F wait dlg tbk_bookRef vwrRef openWaitDlg .'+ +F wait dlg tbk_bookRef closeWaitDlg middleLine ftsInsertLine middleLine ftsRemoveLine middleLine ftsFindLine MM_CMD_Object_Settings MM_CMD_New_Keywords MM_CMD_Build_Index MM_CMD_New_Section Reader Level Settings (indexing) Index Settings keyword MTB40.HLP MM_CMD_Index_Settings MM_CMD_Hotword_Settings MM_CMD_Page_Settings MM_CMD_New_Tag MM_CMD_Reader_Level_Settings MM_CMD_New_Sections Keyword Settings (indexing) MM_CMD_New_Context MM_CMD_Search_Settings_Not_Found ftsWinHelp MM_CMD_New_Contexts SfftsWinHelpNum contextNum Hotword Settings (indexing) Build Index callWinHelp .', 7 1,"JZY info dialog msgField frame message infoDlg infoPg tbk_bookRef dialog infoDlg sftsSetFile folder updateSettings J,tabmode enterPage cancel keyDown .'+ +F ,&H.& V, #> 1, #> .'+ + ,&H.& ,&H.& .'+ +F sftsSetFile NewSet caption kwLine Options CONC_SECTION `/ftsListToTextline newSettings CWDFILE center lines includeBooks sftsMainBk keywords includeObj background,hidden recordField,field,button,comboBox supdBooks dataType CREATE textContinues excluded words sftsContexts sections YaddBooks incBooks KEYFIELDS contextLine obType valCnt kfieldData titleLoc included books excWordFile textFlow object itemNumber aftsFileExists Contexts sftsKeywords excOptions includedObjects obName excluded Keywords settings file contexts *ftsGetIniVar incOptions TitleLoc context numLines Itbk_Ellipsize trueValue initType object reference updateSettings .'+ +F ,&H.& .'+ +F sftsSetFile NewSet Options textContinues updateBooks contexts FALSE background,hidden update books `/ftsTextlineToList CWDFILE sftsBooks CONC_SECTION includeBooks sftsMainBk keywords *ftsGetIniVar supdBooks recordField,field,button,comboBox tbk_bookRef currcontext dataType CREATE currLine sftsHwtags incOptions excluded words sftsContexts sections YaddBooks incBooks KEYFIELDS obType ftsSetFile valCnt sftsSections YaddBooks tagName ?4ftsSetIniVar TitleLoc includedObjects included books updateFile textFlow object Contexts sftsKeywords fieldName supdBooks excOptions update settings obName valCnt valCnt excluded Keywords currKW dialog trueValue lineCnt kfNum titleLoc context vwrRef numLines excWordFile lines saveSettings ftsSetPage hwTab kwTab objTab pageTab fileTab tabPressed 7)%0] cancel okbtn >tbk_Container s_cancel gauge Hyperlink Dump progress ShowDumpProgress .'+ +F ,&H.& ,&H.& .'+ +F Hyperlinks for page No hyperlinks on this page jtbk_trim s_ds_oCnt title Ntbk_GetString s_ds_cnt human Generic modal DB txtFld tbk_ObjectsWhere short Hyperlink Inspector \ tbk_NameOrID VHyperlinkInfo oList d{HasLinksFilter >tbk_Container No Hyperlinks on page _ShowHyperlinks tbk_HasHyperlinks(it) = TRUE HasLinksFilter >tbk_Container Check CheckHyperLinkOptions Hyperlink Check Options WalkHyperlinks _CheckHyperlinks WalkHyperLinks _DumpHyperlinks , /Ex .'+ +F w, #> .'+ +F ,&H.& ,&H.& ,&H.& w, #? .'+ +F w, #? %1 objects resynch DumpObjHyperlinks itemOffset bgList s_tot_Resynched TabSepData Pretty PrettyFormat HyperlinkCount dataTab s_tot_oCnt Dest. Page Name%1Dest. Book%1Transition%1Popup Style Save report on all hyperlinks of this book in... s_tot_pgN Bad hyperlinks in book %1 SaveHyperlinkReportIn k+tbkGetString INTERRUPTED CheckingHyperlinkProgress Text file checkExprs RecordBadHyperlinksIn TB40DLG.DLL Ntbk_GetString human BadHyperlinkCount x objects checked Object%1Trigger Event%1Response event%1Link Type%1 pathOfFile pretty tabsepStr Choose a file format for the Hyperlink report file: array s_ds_cnt defPath (*.txt),*.txt Record bad hyperlinks of this book in file... %2 links s_tbk_dumpFile s_ds_oCnt saveAsDlg total %1 links SaveHyperlinkChooseFormat resynchPath showDumpProgress prettyStr %2 bad links links resynchronized s_tot_pgCnt s_tot_pathResynched saveAsDlg oList %1 objects checked Cancel prompt s_cancel defName false HshortFileName filterList Hyperlinks in book %1 tbk_ObjectsWhere Check Complete captn Hyperlink Data Tab-separated data SaveHyperLinkFancyStr %1 bad link(s) found d{HasLinksFilter DumpingHyperlinkProgress WalkHyperLinks w, #> w, #> ,&H.& charString objName human 0]GetHyperlinks 7expandObjName tbk_HasHyperlinks HyperlinkInfo w, #> w, #> ,&H.& charString s_tot_pathResynched %1 objects Checking Book Hyperlinks s_cancel objName %2 links s_tot_resynched s_ds_oCnt s_tot_pgCnt %1 links resynchronized Ntbk_GetString s_ds_cnt human %2 bad links showDumpProgress 7expandObjName s_ds_bad s_tot_oCnt CheckHyperlinkProgressCheck GetBadHyperlinks Dumping Hyperlink Data s_tot_pgN x links resynchronized DumpingHyperlinkDataShort 0]GetHyperlinks %1 objects checked DumpObjHyperlinks charString -$, #? of page short expandObjName XHLDetail tbk_HasHyperlinks _asym_hyperlinks GetHyperlinks s_resynched HLBadDetail s_tot_pathResynched s_pathResynched s_tot_resynched tbk_HasHyperlinks _asym_hyperlinks _asym_hyperlinks GetBadHyperlinks C6_tbk_HyperlinkIRow badList s_ds_cnt s_ds_bad badTag HLRowDetail _tbk_BadLinksList HLBadDetail s_ds_cnt HLRowDetail HLDetail of book HLTestItem HLBook HLPage human HLSty HLName HLType popup HLRowDetail 1,"Fz s_resynched pgRef >tbk_Container s_pathResynched fName maxCol tbk_FindHyperPage thisBook tbk_CurrentDirectory destBook fpath HshortFileName hyperPath pathOfFile \ tbk_nameOrID asym_hyperpath thisPath 5tbk_altPgName _tbk_BadLinksList .', #? SelectObject objects page,background Vertex |.verticeCount aborted WM_LBUTTONDOWN s_anim_dy s_anim_idleAnimations anim_edit s_anim_selectedVertex s_anim_dx ZstopAnimation theTarget addVertice background s_anim_animationSettings moveTarget s_anim_dragging s_anim_CurrentObject mousePos selectionHandles s_anim_selectedTool whatLayer selectObject s_anim_PathObject vertexPosition WM_LBUTTONDOWN .', " do_endDrag )VremoveVertice changeSelectedVertex select s_anim_PathObject vertex &Cancel FALSE button s_anim_dy }dclearAnimation Vertex vertexPosition s_anim_Objectdy s_anim_dx sizeTarget s_anim_dragging error BottomBar addVertice s_anim_Pathdx s_anim_Objectdx s_anim_animationSettings moveTarget s_anim_CurrentObject selectionHandles s_anim_Pathdy s_anim_selectedVertex s_anim_selectedTool Deleting one of the last two vertices will create a null animation. Editing a null animation is the same as creating a new one only it reuses the space allocated for the null animation instead of allocating new space. Do you want to delete the animation? vertexPosition do_buttonDown s_anim_dy anim_edit s_anim_dx s_anim_dragging s_anim_Pathdx s_anim_Objectdx s_anim_animationSettings moveTarget s_anim_CurrentObject s_anim_Pathdy s_anim_Objectdy s_anim_PathObject vertexPosition do_dragging s_anim_Objectdy showHandles sizeTarget |.verticeCount s_anim_Pathdy s_anim_dragging s_anim_Pathdx compiler s_anim_Objectdx s_anim_CurrentObject hypotenuseFromVertices SelectionHandles s_anim_selectedVertex s_anim_PathObject s_anim_segLengthList do_endDrag .'+ +F or for a vertex next to an existing curved one. newCurveID snextLine middleCurve normal FALSE oldCursor s_anim_CurrentObject objectColor This vertex can't become a curved one. s_anim_dy firstCurve firstCurve A curved vertex can't be set for the first or last vertex drawCurve s_anim_animationSettings moveTarget lastCurve 6previousLine middleCurve s_anim_selectedVertex s_anim_PathObject lastCurve s_anim_dx do_curveVertice )VremoveVertice select }dclearAnimation Vertex |.verticeCount &Cancel s_anim_dy vertexPosition s_anim_dx sizeTarget s_anim_dragging bottomBar addVertice s_anim_animationSettings moveTarget s_anim_selectedTool s_anim_CurrentObject Deleting one of the last two vertices will create a null animation. Editing a null animation is the same as creating a new one only it reuses the space allocated for the null animation instead of allocating new space. Do you want to delete the animation? s_anim_selectedVertex s_anim_PathObject vertexPosition do_keyDown snextLine firstCurve s_anim_animationSettings lastCurve 6previousLine middleCurve moveVertex |.verticeCount tempPos showHandles selectionHandles CurveTopVertice SelectionHandles middleCurve moveTarget s_anim_dy s_anim_dx s_anim_animationSettings s_anim_segLengthList sizeTarget 6previousLine middleCurve firstCurve snextLine lastCurve drawHandle normal objectColor drawLine normal objectColor CurveColor drawCurve newRectangleID 6previousLine middleCurve FALSE snextLine vertexPosition drawHandle lastCurve edrawLine 6previousLine middleCurve newLineID lastCurve addVertice snextLine 6previousLine middleCurve normal FALSE 6previousLine objectColor firstCurve firstCurve snextLine lastCurve middleCurve lastCurve removeVertice ghostColor normal 0,100,0 0,50,100 curveColor objectColor CurveTopVertice ,&H.& objectAnimation s_anim_animationSettings selectionHandles s_anim_PathObject anim_animationSettings ClearAnimation 02|L1 RR^:S index removeLinks s_tbk_linkedSysbooks ftsScripts tbk_tools unlinksysbook Displays information about your SYSTEM. indexing Custom authoring tools added by sysbook MTB40.SBK &Index Tools to create and search Full-Text Search Indexes S&ystem Info... tbk_sysInfo Too&ls tbk_tools CheckToolsMenu The MTB40.SBK system book cannot be used with the ToolBook runtime. bookCnt ytbk_linkMessageFuncs tbk_setStartup bookloc s_tbk_linkedSysbooks Remove Extension n|CheckToolsMenu sysBookLoc to remove MTB40.SBK from the added extensions list. tbk_linkNewFuncs linkSysbook .'+ +F .'+ +F .'+ + ~myIsOpen browserPg >tbk_container background objType tbk_linkConvert GwasRightClick trueValue object of interest \updateBrowser stbk_curMode currentobject stbk_lastWinSize stbk_curOb acheckSelection stbk_cursor viewer Only one instance of the Property Editor can be open at a time. inspectType Property Editor propValue customEdit acheckSelection stbk_propNames stbk_propValues Property Editor stbk_curObj acheckSelection stbk_propNames stbk_propValues Property Editor stbk_curObj saveAs Handler list browser acheckSelection updateSelf Property Editor selectionChanged stbk_currOb closeWindow ,&H.& ~myIsOpen tbk_reset Property Editor tbk_reset Handler list browser tbk_lastWin \updateBrowser stbk_curOb tbk_reset stbk_propNames stbk_propValues updateSelf Property Editor enterPage acheckSelection Property Editor activateInstance propBrowser stbk_previousActiveWindow tbk_lastWin author acheckSelection stbk_lastActiveWindow Property Editor enterWindow propBrowser Handler list browser vList mm_MediaWidgets Property Editor author Handler list browser vList FALSE mm_MediaWidgets Property Editor reader Author s_anim_idleAnimations group Canim_StartPosition doThreeDee sizing stuff anim_edit anim_animationSettings threeDeeRect Canim_StartPosition Canim_startPosition anim_animationSettings sized Center &Show Backdrop tbk_hasHyperLinks initLinks indexing tbk_lastWin HotwordSettings tbk_RemoveBackdrop button rectangle button backdrop of this background group FullTextSearch KeywordSearch mm_mediaWidgets backdrop mm_WidgetProps mm_media sftsMainBk ObjectSettings backdropObj tbk_text _entermenu tbk_HyperlinksMenu recordField,field,button,comboBox ftsScripts tbk_ChooseBackdrop menu manager selHW tbk_tabOrder tbk_HideShowBackdrop tbk_taborder &Hide Backdrop combobox &Add Backdrop... property Editor field tbk_3D ,rectangle reader lmmWidget nothing author paintobject field Spread &Change Backdrop... &Add Hyperlink... tbk_tools tbk_importText combobox tbk_exportText customEdit field,recordfield whatWin tbk_Backdrop &Edit Hyperlink... hyper hyperlink entermenu This book must be saved first. msgBox Media Packager stbk_thisBook tbkToolsDlg Ntbk_GetString clipPkg mediaPackager w, #+ Cancel sysAlignment false 6getToolBookIniItem System MTBCBT SysStr Read preference settings from MTB40.INI or from the current system settings? startup Options tbkToolsDlg captn INI File Startup Preferences IniStr +readini Multimedia ToolBook 4.0 Ntbk_GetString PromptLoadPrefFrom +readIni Preferences Ini File option tbk_startPref tbkToolsDlg Applications Ntbk_GetString AddOnApps tbk_AddOnApps extra scripts exportText tbk_exportText extra scripts importText tbk_importText tbkToolsDlg searchAndReplace Ntbk_GetString Find and Replace in Scripts tbk_replaceScripts .'+ +F CannotFindSysInfo Cannot find SYSINFO.EXE in your ToolBook directory. Ntbk_GetString sysinfo.exe tbk_sysinfo extra scripts spread tbk_spreadHorz extra scripts spread tbk_spreadVert shrinkgrow extra scripts smallest tbk_shrink shrinkgrow extra scripts largest tbk_grow extra scripts center tbk_centerHorz extra scripts center tbk_centerVert extra scripts center tbk_centerBoth .', " .', " window cancelled Set 3D Style tbkToolsdlg extra scripts Group angledLine Ntbk_GetString threeDeeRect retval threeDee threeDeeRect tbk_3D ,&H.& horzOrVert tbkToolsdlg lowestlayer extra scripts window cancelled Ntbk_GetString Set Tab Order retval MustSelect2Objects You must first select 2 or more objects taborder sortbyposition tbk_tabOrder ttbk_linkIniFileFuncs tbk_iniFile getIniVar getToolBookIniItem setStartup set startup tbk_setStartup getMemBlock tbk_getWinPointer freeMemBlock tbk_freeWinPointer tb40win.dll tbk_linkMemFuncs TB40Dlg.dll listToTextline tbk_listToTextline tbk_linkConvert getIniVar SetIniVar SetIniVar tbk_SetIniInfo TB40win.dll tbk_linkIniFileFuncs moveto tbk_moveto lineto tbk_lineto ,#TOrde-# setROP2 tbk_setRop2 createPen tbk_createPen deleteObject tbk_deleteObject selectobject tbk_selectobject getDC tbk_getDC releaseDC tbk_releaseDC tbk_linkDrawFuncs peekMessage tbk_peekMessage registerWindowMessage tbk_registerWindowMessage postMessage tbk_postMessage tbk_linkMessageFuncs tb40win.dll TextToPrinter tbk_TextToPrinter tbk-# tb40dlg.dll itemOffset tbk_ItemOffset , Ter itemContains tbk_ItemContains tbk-# TextlineOffset TextlineContains , T,$T tbk_linkNewFuncs ttbk_linkIniFileFuncs tbk_iniFile rtbk_SetIniInfo setToolBookIniItem FALSE stbk_lastActiveWindow viewer Main Window tbk_lastWin properties SYSTEM properties SYSTEM prop set SYSTEM variables Property Editor obRef s_tbk_start 9a_timeGetTime startTime s_tbk_start 9a_timeGetTime endTime tbk_bookRef tbk_GetWinPointer ftsGetWinPointer r1tbk_FreeWinPointer ftsFreeWinPointer .', #? 8initDlg FALSE Can't nest more than 3 dialogs! Ntbk_GetString sEreturnString page id CantNest4Dlgs dialog rEreturnString window cancelled pageStr tbkToolsDlg initDlg shortFileName pathOfFile ,&H.& HshortFileName testName sysBookLoc MTB40.INI TB40.ini tbk_iniFile initLinks ftsScripts enterApplication sftsSetFile stbk_lastActiveWindow leaveBook ftsSbk textEntry ftsScripts textEntry eztagEntry ftsScripts tagEntry ftsScripts multiEntry multiEntry mqtbk_itemOffset itemNumber mqtbk_itemOffset itemOffset getSetFile ftsScripts getSetFile stripExtension ftsScripts stripExtension HshortFileName pathOfFile splitPath writeDefaultSST ftsScripts writeDefaultSST ftsScripts ktftsCreateIndex BuildIndex uftsSearchIndex ftsScripts FullTextSearch ftsScripts ftsKwSearch KeywordSearch ftsScripts ftsIndexSettings IndexSettings ftsScripts ftsReaderSettings ReaderLevelSettings ftsScripts ftsPageSettings PageSettings ftsHWSet ftsScripts HotwordSettings *%ftsObjectSet ftsScripts ObjectSettings openWaitDlg ftsScripts openWaitDlg closeWaitDlg ftsScripts closeWaitDlg ]ftsInsertLine ftsScripts ftsInsertLine XftsRemoveLine ftsScripts ftsRemoveLine ftsFindLine ftsScripts ftsFindLine callWinHelp ftsScripts callWinHelp i_pathAnimation animation scripts PathAnimation s_anim_animationSettings checkPathAnimLimits isValidObject 30_DumpScripts Script Dumper tbk_DumpScripts handler list browser HandlersBookNameRequired Ntbk_GetString Handler List Browser tgtWin tgtWindow Cannot show handlers unless current book has a name. tbk_ShowHandlers Script Utilities _SortScript tbk_SortScript groupfieldrecordfieldpagebackgroundbook of book tbk_Container isNumber tbk_isNumber false Help could not be started. Please close some windows and try again CannotStartHelp flags WinHelp tbk_WinHelpByNumber OCj-# WinHelp tbk_WinHelpByKey Ntbk_GetString tbk_WinHelpByKey Z^tbk_WinHelpByNumber MTB40.HLP tbk_WinHelp mm_mediaWidgets whatWin mm_mediaWidgets showWidgetsProps mm_WidgetProps myWin s_wid_targetWindow s_wid_targetObject mm_MediaDialog showWidgetsProps Hyperlink tools _CheckHyperlinks tbk_CheckHyperlinks _ImportBackdrop Import Backdrop tbk_ChooseBackdrop Hyperlink tools _DumpHyperlinks tbk_DumpHyperlinks _HyperLinkDB Hyperlink Properties DB tbk_HyperLinkDB _HyperlinkProperties tbk_ObjectOfInterest Hyperlink properties DB tbk_hyperlinks :_tbk_LockMove tbk_LockMove :_tbk_LockMove tbk_LockMove tbk_Hyperlinks tbk_PageHyperlinks Hyperlink tools _ShowHyperlinks tbk_ShowHyperlinks _HyperlinkProperties tbk_objectOfInterest _argList Hyperlink properties DB hyperlink backdrop tbk_HideShowBackdrop OKToDeleteBackdropResource Ntbk_GetString No in button that was used by the deleted backdrop object. OK to delete yesStr No other object seems to need the bitmap resource backdrop OKToDeleteBackdropScript No other object seems to need the shared script the bitmap resource? the shared script? tbk_RemoveBackdrop _asym_hyperlinks _tbk_HyperlinkCandidates _tbk_HyperlinkIRow C6_tbk_HyperlinkIRow false A_tbk_AddLinkToArray Hyperlinking _tbk_AddHyperlinkToArray tbk_FindHyperPage _tbk_BadLinksList HyperLinking _tbk_ClearHyperlinkFromArray _tbk_ClearHyperlink pathOfFile asym_hyperpath tbk_FindPathFile tbk_FindHyperPage tbk_FindHyperPage pgRef false C6_tbk_HyperlinkIRow _tbk_HyperlinkLinkInfo _tbk_AddHyperlink Hyperlinking tbk_AddHyperlink .', #? pgCaption title tbk_AltPgName tbk_HasHyperlinks _asym_hyperlinks _tbk_BadLinksList tbk_CheckObjectHyperlinks 3D_tbk_ClearHyperlink HyperLinking tbk_ClearHyperlink w, #> vGetCurrentDirectory GetCurrentDrive TB40DOS.dll GetCurrentDrive GetCurrentDirectory tbk_CurrentDirectory tbk_CurrentDirectory tbk_CurrentPath false _tbk_ExecHyperlink tbk_HasHyperlinks _asym_hyperlinks tbk_DoHyperlink tbk_FindPage _GetHyperlinks Hyperlinking tbk_GetHyperlinks _asym_hyperlinks tbk_HasHyperlinks >tbk_Container jtbk_Trim _asym_hyperpath tbk_CurrentDirectory pathOfFile mqtbk_itemOffset asym_hyperpath V_SetHyperPath Hyperlinking asym_hyperpath FileExists FileExists TB40dos.dll tbk_IsFile .', #? tbk_NameOrID progress 1 progress tbk_ShowProgress progress with text progress tbk_ShowProgressWithText ownerObj objTypes express tbk_ObjectsWhere tbk_trim TB40dos.dll GetFileAttributes GetFileAttributes , U, / tbk_IsDirectory pathOfFile bkPath tbk_RelativePath open ended progress tbk_OpenEndedProgress .'+ +F tbk_resetCursor tbk_MakeIntoRelPath 1, #> 1, #> dotss jtbk_Trim center tbk_Ellipsize revOffset tbk_ExpandRelPath PopupWinComboValues thickFrame,Standard (thick frame) shadowAutoClose,Shadowed (close on click) dialogframe,Dialog Window thinFrame,Standard (thin frame) shadow,Shadowed (manual close) tbk_PopupWinComboValues tbk_IsFile TB40DOS.DLL DOSPath false jtbk_trim GetDosEnvironmentString , UOC I4GetDosEnvironmentString pathOfFile tbk_ExpandRelPath testName bkPath tbk_FindPathFile GetCurrentDrive setCurrentDirectory TB40DOS.dll SetCurrentDrive GetCurrentDrive SetCurrentDirectory setCurrentDrive tbk_setCurrentDirectory tbk_ScrollListBoxToSelection anim_animationSettings objectAnimation 1,"J-Y 1, "Q GetCaretPos tbk_lastWin GetCaretPos field r1tbk_FreeWinPointer tbk_linkMemFuncs tbk_GetWinPointer tbk_ObjectOfInterest revOffset >tbk_Container _tbk_StringArray tbk_GetString false tbk_IsWin95 propValue "(" -- oType = "Book" & shortFileName( obRef( otrueText = fitText sized ".." "..." ccnt = notifyBefore tbk_reset [txt [truetext notifyAfter firstIdle maxX = tbk_container( splitterPlacement = getToolBookIniItem("Property Editor","Splitter", oplacement = - 750) notifyBefore SetToolBookIniItem(" bookref = tbk_Container( = cursor "resize" SYSTEM stbk_x, stbk_xMax thedots = theDots O-- - 5 /- 750 x = mousePosition targetWindow x <> x = b(750, j(x, = x-- - 15 lockScreen dummy = setToolBookIniItem(" objectFromPoint( x = NULL = x-- - 15 "valueLabel" = x "nameLabel" = x "propValue" = x "propName" = x -- update the property. (sent enter pressed #checkmark updatePropFromHeader justLeftField SYSTEM stbk_curOb, stbk_propValues, stbk_propNames,stbk_Canceled pg = fref = fheader tl = selectedtextlines pg = ~) > 40 "..." setProp curProp updateBrowser FALSE pageref oldSys = sysSuspendMessages = TRUE they Z value cancelPropFromHeader pg = tl = pg = resize x1,y1,x2,y2, tx1,ty1,tx2,ty2,xp,yp,baseRad ssm = sysSuspendMessages sol = lockScreen targetWindow sizedObj = oldbasebounds fullResize = (x1 <> y1 <> x2 <> y2 <> ux1,y1,x2,y2 rad = * xp m"Tab Border" 6, tx1+ E,y1, x2,ty2 -1) * xp m"Highlight" x1+xp, 4+yp, @+yp, ixp,y1+ +yp, +xp,y1+yp, tx2- -xp,y1+yp +yp, x2-xp, m"TabShadow" Hrad-xp,y1+yp, Xxp,ty1+ +yp, +yp*2 1,y2,x2,y2,x2,ty2-yp U"VHighlight" x1+xp, $+yp, x1+xp,y2-yp x2-xp, M+yp, x2-xp,y2-yp, x1+xp,y2-yp +2) * xp U"TLHighlight" xp,y1+rad, y1+xp U"TRShadow" &+xp,y1+xp, xp,y1+ - 2) * xp xOff = xp*2; yOff = yp*2 m"Highlight2" 4,ty2+ N,y1+ a,y1+ d-xp,y1+ , x2- m"TabShadow2" U"VHighlight2" , x1+ , x2- , x1+ = ssm = sol resizeBorder setStartup tbk_linkIniFileFuncs section 0 Preferences" = getToolBookIniItem( m=gettoolBookIniItem( sysDrawDirect= y",180) sysTransparent= sysUseWindowsColors= doThreeDee obj objs sz = pupp = syspageUnitsPerPixel threeDeeRect = sz > sz > inOut threeDStyle b = "sculpted" xpix = -1* syspageunitsperpixel ypix = -1* ll = lr = ur = ul = bottomLine topline m"topLine" sysSuspendMessages x"MS" ll,lr,ur ll,ul, ul,lr _sortScript obj LOCAL newScript = NULL oldCursor = B = "-- SORTED" && p&& "--" & CRLF & getScriptHeader( X"TB40dlg.dll" STRING SortList( hndlrs = getHandlerList( cnt = 0 (obj, GetScriptHeader n = 0 scrpt = "notifyBefore" "notifyAfter" n = i - 1 n > 0 ~("-- ) = 1 buttonClick myBk = tbk_container( myPg = tbk_Container( vwrRef = "transition sample" linkType = propValue combobox "LinkType" c"jump" refPg = ] 1" osamples <> closeMySamples isOpen K= "&Test" currentPage "Transition comboBox "fx" trFX K= "&Close" K= "& --autoClose,standardThick,standardThin,dialog popupStyle = "shadowautoClose" pgName = " "fullScreen" 0Shadowed manual winList = sysOpenWindows refpos = ScreenToPageUnits("0,0", mywpos = $"0,0",targetWindow) .+ 1000, E+ 1000 tbk_PopupPage( , refPos, " parentHandle v = windowHandle notifyBefore K= "& +winActivated ss = notifyBefore LOCAL txt odropValues = " ,out" & CRLF & \ tbk_GetString("FXDirInOut","In, ^vals, dditems, will be 1 2 lines ovalues = X"TB40dlg.dll" STRING listToTextLine( olineCount = (ddItems) odropDownItems = itemOffset( otrueValue, oselectedItem = propValue selectChange txt notifyAfter oenabled = dropValues LOCAL vals, dditems, txt " will be 1 2 lines ovalues = X"TB40dlg.dll" STRING listToTextLine( olineCount = (ddItems) odropDownItems = itemOffset( otrueValue, oselectedItem = propValue selectChange txt notifyBefore tbk_reset fixMyValues ZSTACK temp,vals ZSTRING dditems comboValues = tbk_PopupWinComboValues() valCnt = valspec = valSpec <> ddItems = ovalues = odropDownItems = otrueValue = propValue tbk_itemOffset( oselectedItem = selectChange notifyBefore LOCAL txt odropValues = "buttonClick, z" & CRLF & \ tbk_GetString("HyperTriggerClick","Single click,Double vals, dditems, will be 1 2 lines ovalues = txt = ddItems odropDownItems = propValue otrueValue = BitemOffset( selectChange oselectedItem) browseBookDlg bkFn, pgRef propValue "link v = "Link Page Browser" tbk_Container( v <> targetWindow oOK = updateSelf "Main List" %modal dlgResult = oOK = pgID = pageIDNumber "main list" bkName = NULL oOK = close x <> 13 x <> 13 x <> 13 notifyBefore olastSel tbk_reset UpdateSelf bkFn, pgRef, startN LOCAL WORD pgN, destPgN & = NULL 2 = 1 maxN = 300 --** MAGIC d <> pgLst = pageListWithIDs( oexcludeLine = BpgN 0,50,0 <> 0 oselectedTextLines = selectionChanged pg = tbk_Container( enabled B"OK" pg = (propValue "link pg <> [refFocus B"DefaultButton" pageIDNumber bk, CRLF pg = 9& tbk_nameOrID(pg) & LF & ) obj "Page ID" && notifyAfter firstIdle oenabled = tbk_Trim( tbk_Container( /") <> "No hyperlinks on buttonClick txt = ) > 1500 needDlg = 1 "tb40win.dll" INT tbk_TextToPrinter = textToPrinter(STRING, WORD, , printerOptions(), windowHandle targetWindow, = NULL "Unable job options %a list -- DOC Name (32 -- Font Style ( Bold, Italic, Underline, Strikout) :Size -- Page Borders - Show choose Common dialog (1 abort "Title") CRLF & "LinePrinter" & 8.5" & notifybefore notifyBefore x = 13 orefBtn enabled buttonClick orefFocus ocancelBtn = B"Cancel" odefBtn = = NULL <> "pushbutton" OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick ocancelBtn = B"Cancel" tbk_Container( odefBtn = orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y spinUp SYSTEM s_anim_animationSettings[] "integer" spinDown isType("REAL", sliderMax "BottomBar" = notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick ocancelBtn = B"Close" tbk_Container( odefBtn = orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y fillAnimationList newObj LOCAL settingsTable[][] [dropDownItems ss = = FALSE "anim_edit" S = anim_AnimationSettings dimensions( i&CRLF drowDownItems textlineCount( ) > 1 notifyAfter SYSTEM s_anim_animationSettings[], s_anim_CurrentObject isOpen combobox " }" <> selectedObject = ~(TAB, ) > 0 ct = 14] > ) - 1 notifyBefore SYSTEM s_anim_CurrentObject, s_anim_PathObject LOCAL DDItems odropDownItems isOpen "anim_edit" onBackground objList = 0) > 0 currentObject "selectionHandles" currentPage @ <> -- 4 tabs should the unique {out sight combobox dropdown -- we need store ID numbers incase }named dsame thing. && QUOTE & TAB& &CRLF && " " && selectChange newObj objRef = fillAnimationList "animations" "selectObject" objectFromPoint( isChild( toggleInvert obuttonPressed buttonClick FALSE toggleObject ls = lockScreen LockScreen isObject( oinvertedButton) y <> objectInQuestion, parentInQuestion $ <> buttonClick dataType cbox = comboBox "formats" >= "U" enabled cBox = notifybefore initType dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" = "U" B"U" dropDownItems combobox " = "D" B"U" = "S" B"U" = "C" B"C" &"/" "/R/I/T/" = "R" initializePage curObj SYSTEM sftsSetFile ctions LOCAL initVal secName = ftsSection noneStr = tbk_GetString("NoneBrackets","[ sftsSections = ftsGetIniVar("CREATE","CONC_SECTION", itemNumber( E) > 0 [ListToTextline( dropdownitems combobox "choice" comboBox " B"exclude" = (ftsExclude = TRUE) objNm = <> NULL [newSec = keyEnter buttonClick B"ok" B"help" notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick ocancelBtn = B"Cancel" tbk_Container( odefBtn = B"NEW" orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick odefBtn = B"Close" tbk_Container( ocancelBtn = orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y buttonClick SYSTEM sftsMainBk,sftsKwNum LOCAL path,fname filterList = "ToolBook books (*.TBK),*.tbk, k(*.SBK),*.sbk, All files (*.*),*.*" bkName = pathAndName = splitPath( Y= ftsGetFileListDlg("Add Files", <> NULL -- fileList = "included trueValue tlc = ) = 1 fullName = upperCase( &"\"& tbk_Ellipsize( , 24, " " = ftsListToTextline( addBooks ftsSetPage() = TRUE -- initializes property-editing dialog box -- value[1] holds the be edited, ;3] tells us whether v can be initdlg fref = "propEdit" propName = upperCase( 3] = FALSE ]&& "(Not Editable):" & ":" scrollbars, necessary textoverFlow -- sent used Hstandard utton returnString close notifyBefore dropItems = tbk_GetString("SAndRDropItems",\ "All & CRLF & "This "Page, 8scripts"\ >Scripts {hierarchy"\ \SharedScripts odropDownItems = olinecount = textLinecount( notifyAfter getToolBookIniItem("Tools", "SearchRange", 1) oselectedItem = SetToolBookIniItem(" \ge", propValue i = 1 i = 2 i = 3 i = 4 i = 5 i = 6 updateStartButton bref = B"ok" allowSearch = ( enabled setDefButton notifyAfter firstIdle notifyBefore resize x1,y1,x2,y2, tx1,ty1,tx2,ty2,xp,yp,baseRad ssm = sysSuspendMessages sol = lockScreen targetWindow sizedObj = rad = n * xp m"Border" D,y1, x2,y2, x1,y2, x1, -1) * xp m"Highlight" x1+xp,y2-yp, x1+xp,ty2+yp, tx1+xp, +yp, +xp,y1+yp, tx2- -xp,y1+yp +yp, x2-xp, m"TabShadow" Mrad-xp,y1+yp, ]xp,ty1+ +yp, x2-xp, x2-xp,y2-yp, x1+xp,y2-yp +2) * xp U"TLHighlight" ,y1+xp U"TRShadow" +xp,y1+xp, xp,y1+ - 2) * xp xOff = xp*2; yOff = yp*2 m"Highlight2" 6,y2- /, x1+ `,y1+rad+ t,y1+ w-xp,y1+ , x2- m"TabShadow2" Off, x2- , x1+ = ssm = sol resizeBorder notifybefore notifyBefore x = 13 orefBtn buttonClick ocancelBtn = B"Cancel" odefBtn = B"OK" orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y -- initializes dialog that prompts user replace -- value[1] has the starting found 4ending Mwhole fwhich initDlg "scriptDisplay" selectChars "findString" 5] = NULL "replaceString" "objectRef" values various buttons returnString "Yes" yestoAll close firstIdle B"No" -- initializes dialog that shows the user found strings. -- value[1] has Dcontaining )cript initDlg "foundScripts" searchString close -- edits editScript obj, searchText SYSTEM stbk_asword matchword = ( X"TB40WIN.DLL" sendkeys( =TRUE }",0) }",0) focusWindow = "sharedScript" resource notifybefore notifyAfter fixLayout fixFieldScrollBar x = 13 targetWindow SYSTEM stbk_lastActiveWindow oisDLL = TRUE tbk_GetString("CantEditDLL"," 0functions!") oselectedTextLines = NULL handlerName = myPg = tbk_Container( obj = orefObj -- tgtWindow ?"sharedScript" bk = bk = bk = HandlersBookNameRequired",\ "Cannot deal funnamed books.") " && bk X"TB40WIN. sendkeys( ) < 25 checkByWord = "{ }" & }" & X& "{ }" & "{keyDownArrow}{ }",0) focusWindow resource obj bookref = tbk_Container( = cursor "resize vertically" SYSTEM stbk_y, stbk_yMax thedots = U"splitter theDots T-- - 5 /- 750 y = mousePosition targetWindow y <> y = b(750, j(y, = y-- - 15 lockScreen oplacement = setToolBookIniItem("Handler Browser","Splitter", objectFromPoint( y = NULL fixLayout y notifyBefore opropValue = notifyAfter oldT = txt = isNumber( %>= 0 .< 32768 nam = c"pixels" sysPageUnitsPerPixel c"VGA" "width" opropWidth = opropHeight = w < 0 w > 32767 > 32767 w = fld = (w / (w / 15) h < 0 h > 32767 h = (h / (h / 15) pg = oldT = txt = xIsNumber( nam = pg = PuToRuler( RulerToPu( pg = propValue pg = "sysIndents3 "sysIndents2 "sysIndents1 pg = = NULL pg = pg = puToRuler( pg = pg = pg = pg = propValue otrueValue = NULL "regular" zapSpaces( = = tbk_GetString( nothing -- dummy trigger "Bold") "Italic") "Underline") "Plain") p = cp > 0 p = chooser control propValue pg = = NULL "patternFlipper" B"custom" update pg = buttonClick pg = pg = propValue b(3, , 99)) = NULL isType(REAL, keyDownArrow x >= x <= x = 8 x = 9 oldText real, >= 3 <=99 ) tbk_GetString("PolyError",\ must be a value between 3 incrementnum update x = keyDownArrow decrementnum "dim2" flushMessageQueue() x = 27 -- x = 43 x = 45 oldText = xisNumber( propValue "which Dim" "dim1" notifyafter notifyAfter n = "i1", n \ "val2" notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip dropAnchor anchor = ship = chain = chainStart = 9+360, H+1260 i+1080 chainEnd = H180,0 H0,120 hideAnchor buttonClick SYSTEM s_anim_CurrentObject, s_anim_animationSettings[] k1 > 0 newVal = 212]* :8])/ #<= 0 "The frame rate should be changed "so that the will reach point )exactly"\ && 8]&&" f"&OK" "&Keep = "OK" -- verify animations "Variable" -- asure frames per Usegment a whole z& >= 1 lineSegs 1])/2-1) smooth = newRate = be smoother 3&"." f"&OK" = "OK" 12] = xcheckPathAnimLimits() tbk_GetString(" ctoo many ."&CRLF& "Please reduce either duration steps ftbk_getString("OK") >buttonclick close notifyBefore olastSel updateSelf *tbk_reset UpdateSelf SYSTEM stbk_lastActiveWindow LOCAL stack temp, objLst otrueText targetwindow = linkDLL "TB40DOS. STRING GetFileDate( /WIN. $Version( AListToTextLine( XSortList( ss = isOpen ow = ow = obj = tbk_ObjectOfInterest() obj1 = )NULL [notifObjs notifyObjects : <> sharedScript U <> "notifyAfter" tbk_GetString("[ a]") && ]" && ]" && "[SysBook]" && getToolBookIniItem ("Handler Browser","DLL", oselectedTextLines "handlers" tbk_container( fixFieldScrollBar fixLayout textScrolled fixLength tr = otextRight lins = otextRightOverflow) scrl = tt = n = i + i > 0 = shorten ( ccnt = ~("[DLL]",s) = 1 s = "\" ],s) = 1 p = p > 0 s = "\" p2 = i Vj+1 ItemSelected n _tbk_junk_handlers, s_tbk_junk_sort, nam, obj OBJECT objRef selN = fld = "Handlers" tbk_Container( isDLL s_tbk_junk_handlers = DLLFunctions( nam = "[sysbook]" ss = refObj F ]", N ") ) = 1 ss = itemSelected n = SelectedObj(n) info = fn = CRLF & :") & Unnamed","( n > 0 -- maybe DLL? fn = --** INTERNATIONAL: DO NOT TRANSLATE -- MAINTENANCE ONLY Information" && p:" & 9& fn & r:" & getFileVersion(fn) :" & "Language:" & "Product p:" & . version:" & "Copyright:" & "Trademark:" & NoVersionInfo","(No information available)") rightbuttonDown loc n = n > 0 notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized asym_reset setClipControls [lastX B"thumb" setPos 0 notifyAfter firstIdle (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip ~<> AUTHOR (autoCloseMedia ) <> closeClip myViewerRef() myClip = ( mmPlayable stageObj = whatStage mmYield checkStageSize mmOpen mmnotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE B"stop" clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized asym_reset setClipControls [lastX B"thumb" setPos 0 notifyAfter firstIdle (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip ~<> AUTHOR (autoCloseMedia ) <> closeClip myViewerRef() myClip = ( mmPlayable stageObj = whatStage mmYield checkStageSize mmOpen mmnotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE B"stop" clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized asym_reset setClipControls [lastX B"thumb" setPos 0 notifyAfter firstIdle (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip ~<> AUTHOR (autoCloseMedia ) <> closeClip myViewerRef() myClip = ( mmPlayable stageObj = whatStage mmYield checkStageSize mmOpen mmnotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE B"stop" clipStat = mmStatus "stopped" normalGraphic = InvertGraphic "paused" "seeking" "playing" = CheckedGraphic "closed" buttonClick clipRef <> NULL status = mmStatus "playing" stopClip playClip notifyBefore showWidgetsProps asym_reset notifyAfter firstIdle (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia ~<> AUTHOR mmWidgetSysBook (autoCloseMedia ) <> closeClip myViewerRef() myClip = ( mmPlayable mmYield mmOpen wait whatStage setClipControls notifyBefore tbk_reset fixMyValues SetToolBookIniItem ("Property Editor","lastItem", otrueValue) ovalues propValue = NULL oselectedItem = odropDownItems selectChange LOCAL STACK temp,vals RING dditems comboValues = tbk_GetString("PropBrowsComboVals",\ ",Current Object" & CRLF &\ Page" & 4Background" & cViewer" & 4>,System") scrollable valCnt = valspec = valSpec <> ddItems = olineCount = getToolBookIniItem (" objectOfInterest tbk_lastWin() tbk_ObjectOfInterest() "obtype" tbk_container( skipFlag checkSelection TRUE -- these handlers keep "propname" sync textscrolled adjustscroll adjustScroll pressing delete [a userProperty SYSTEM var stbk_curOb, stbk_propValues, stbk_propNames tl = selectedtextlines tl = NULL tl = 1 xtbk_GetString(" FALSE stbk_curProp <> updateHeader --notifyBefore tbk_reset tl = tl > 0 fref = "propValue" refObj = selectedTextLines adjustScroll INULL propName = itemOffset( ") > 0 o= 44 o<> 44 xIsPointClose(loc, o= 44 v = windowFromPoint(pageUnitsToScreen( , targetWindow)) v <> v <> obj = ChooseDropObject() yesStr = tbk_GetString("Yes") expandString( 0SetPropXtoPropXinBrowser",\ the property ""%1"" && "%2 "value ""%1"" 4Property Editor?"),\ f"&" & "&" & Cancel") cmd = " && && "=" && " && refobj ss = b"@" & " && && "="&& "@" & " && isPointClose y1, y2 (x1 - x2) < 60 (y1 - y2) < 60) --notifyBefore tbk_reset buttonClick X"TB40dlg.dll" STRING ChooseDirectoryDlg( "TB40win. GetIniVar( SetIniVar( IniFile = tbk_iniFile() myPg = tbk_Container( oldDir = tbk_GetCurrentDirectory() dirField = "bitmap directory" thePath = propValue "Backdrop"," xtbk_IsDirectory( y) > 3 prompt = tbk_GetString(" tbk_SetCurrentDirectory( NoCancel Prompt, <> "\" BackdropPath = UpdateBitmapList scroller" notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized asym_reset setClipControls notifyAfter firstIdle (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip ~<> AUTHOR (autoCloseMedia ) <> closeClip myViewerRef() myClip = ( mmPlayable stageObj = whatStage mmYield checkStageSize mmOpen mmnotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" updateSelf "hierarchy" browseBook bkFn isDLL >= TRUE tbk_GetString("Linked functions aliases",\ helpText statusBar = statusbar = SPACE x, isShift, isCtrl sl = selectedTextLines lockScreen targetWindow = ft = fieldType = nowrap tbk_winHelp(12900,"MTB40.HLP") --- Resizing management windowSized currentPage sizeToViewer sL = FixLayout fixLayout splitY xoff = 0 yoff = 0 availh = grp1 = "Hierarchy" grp2 = "Handlers" splitter = = NULL = GetToolBookIniItem(" I Browser","Splitter","") splity = yOff + availH/3 $-- - 15 - 225 dots" - 225 sized + 15, fixFieldScrollBar >> 0 fixLength buttonClick LOCAL kfields cBox = combobox "Choice" ( = dropdownitems numLines = valName = tagEntry(tbk_GetString("New Hotword Tag"),\ "TagColon","Enter :"),"","") c"," q) > 1 kBadFTSTag",\ "Tags may xcontain commas multiple -- enabled " = TRUE dataType = "value entry" tbk_bookRef() typeString = "Date" Integer" 6Real Number" NCharacter" currLine = 1 Duplicate "A Tag that palready exists.") newVal = &&"("& newKF --This handler translates the messages editor openWindow translateWindowMessage oclienthandle on 0x0020 setCursor on 0x0201 WM_LBUTTONDOWN /"editorScripts" "bottomBar" buttonClick shown setSize closeWindow SYSTEM s_anim_idleAnimations, s_anim_selectedTool, s_anim_CurrentObject EPathObject, s_anim_curvedVertices, s_anim_selectedVertex dragging, s_anim_dx, s_anim_dy, s_anim_segLengthList, s_anim_pathdx, s_anim_pathdy Objectdx, s_anim_objectdy, s_anim_lastLoc animationSettings [s_anim_PathObject [s_anim_dragging [s_anim_Objectdx [s_anim_animationSettings sets cursor either ,mode arrow cross hairs --depending on value sysTool. It also updates ToolPalette has been toggled hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 theTarget isObject( modeCursor( ocurrentPage) isOpen "anim_edit" statusBar ) = "down" ) = " ) = " "vertex" 39 -- "lineVertex" "selectionHandles" "N_handle" "s_anim_handle" "NE_handle" "SW_handle" "SE_handle" "NW_handle" pathObjectID <> initDialog ) = 1 selectedObject = onBackground && QUOTE & &TAB& combobox " "SelectObject" selectChange "selectObject" --automatically there only 1 textlineCount(dropDownItems animations" s) <= 2 B"OK" %modal selectChange txt lockScreen HasDir d1 = 0 fxDest = " L,lowerLeft,lowerRight,upperLeft,upperRight,atMouse, fxDestText = tbk_GetString("FXDestinations",\ \Bottom,Top,Lower sUpper l Position,Horizontal,Vertical") oselectedItem) ovalues otrueValue = = "split" d1 = 10; d2 = 11 -- slide wipe" d1 = 1; d2 = 4 -- ,context, "rain turnPage" d1 = 1; d2 = 2 -- "spiral" "zoom" pt = d1 = 1; d2 = 9 -- anywhere pg = tbk_Container( obj = "transition speed" enabled B"speedLabel" pg = ( "msLabel" pg = ( B"test" pg = ( HasDest = (d1 <> 0) comboBox "dest" prompt = B"destLabel" hasDest dropValues & CRLF & B"dirLabel" = NULL propValue LOCAL vals, dditems, txt " will be 1 2 lines itmCnt = (ddItems) olineCount = odropDownItems <> spd, dir, pg = destObj = dirObj = speedObj = fx = ?(fx "slidespiralsplitzoom") IsDestFx = (fx "pushrainslidesplittearturnPagewipezoom") pg = fx = BitemOffset(fx, pg = gi+1 p = p > 0 out " tbk_trim( valueList ListValueKeywordsNotTranslated",\ v,blinds,dissolve,drip,fade,iris, ,puzzle, -- Order must match betweek the FXList alphabetized localized version notifyBefore fxList = fxText = v>,Blinds,Dissolve,Drip,Fade,Iris,Push,Puzzle,Rain,"\ & "Slide,Spiral,Split,Tear,Turn ,Wipe,Zoom") pg = dir = spd = " TurnPage" transitionSpec notifyBefore tbk_reset otrueValue propValue thisBookStr = tbk_GetString("ThisBookDB","< D = NULL sol = lockScreen targetWindow fixtextlength otouched ounverified # = TRUE notifyAfter txt = SYSTEM s_Canceling tbk_FindPathFile( ,asym_hyperpath l <> fixTextLength cnt = = tbk_Ellipsize( notifyBefore tbk_reset otrueValue propValue myPg = tbk_Container( # = NULL "link ss = pg = ExpandString( \ tbk_GetString("PageAndQuotedPageName"," ""%1"""),\ LeAndID"," H ID %1"), IDNumber "ID" tbk_IsNumber( ID %1"), ""%1"""),\ bk = tbk_container(pg," bk <> bk = otouched tbk_trim( propValid() ( txt bkNam = "ID" isType(DWORD, tbk_FindPathFile( ,asym_hyperpath txt) p = p > 0 Vp+1 p > 0 notifyAfter = TRUE enabled B"OK" = B"OK" [refFocus B"defaultButton" notifyBefore propValue ochoice = "Link specific" "link tbk_Container( ") = NULL sol = lockScreen targetWindow objs = pg = enabled B"Browse" pg = ( B"OK" pg = ( comboBox "linkType" pg = " fixFields = sol buttonClick pg = specificLink = ( pg = okBtn = B"OK" Lfld = pg = B"OK" = ( BadLinkIndicator pg = B"OK" pg = "transition" pg = ltcb = selectedItem "default" [refFocus B"defaultButton" pg = notifyBefore LOCAL txt odropValues = "None,jump,popup" & CRLF & \ tbk_GetString("LinkTypeList",\ another ,Pop up olineCount = 3 vals, dditems, will be 1 2 lines ovalues = txt = ddItems odropDownItems = propValue "default" odefaultLinkType = NULL itemOffset( oselectedItems = selectChange LS = lockScreen targetWindow pg = tbk_Container( selItem = --enabled "link controls" pg = ( ?<> 1) B"browse" pg = BadLinkIndicator pg = contractBg comboBox " style" "Popup Style" pg = ( B"test" pg = ( "2 3") "Transition" enableSelf ( To What" pg = B"OK" pg = pg <> [refFocus B"defaultButton" = LS buttonClick FindABook tbk_GetString("Must 4link",\ "Sorry, you must 4setting"\ && "links other books.") oldDir = tbk_CurrentDirectory() linkDLL "TB40DLG. STRING OpenFileDlg( ,INT) prompt = "Destination filter = Books","") && "(*. ","") && "(*.exe),*. ","") && "(*.?bk),*.?bk" ASYMA_GetAuthorIni("Custom"," extension") "*." & Special ","") && "(*." & & ")"\ thisBkFn = bkFn = ,"","", OK = TRUE errMsg = ver = "4.0 MM" %"4.0" OK = ?"3.0 MM" O"3.0" & CRLF & tb3/mtb3 file", \ "This 8was created fToolBook/Multimedia 3.0."\ && "You should reopen ; 4.0 resave OK = old tb older version convert OK = OK = BrowseBook tbk_Container( tbk_SetCurrentDirectory( CheckHyperlinkOptions SYSTEM s_dbresult v = "Generic modal DB" tbk_Container( defaultPage v = tbk_GetString(" Book Hyperlinks") [s_dbResult ! & "" propvalue paths" setToolBookIniItem(" Checker"," propValue B"repair" Dresynchronize", "report 8file = getToolBookIniItem(" targetWindow <> close tbk_WinHelp(12520,"MTB40.HLP") notifyBefore SYSTEM s_ctba_bldfn = NULL = tbk_CurrentDirectory() & "badlinks.txt" opropValue = = lowerCase( otrueText = n = = tbk_ellipsize( myPg = tbk_Container( enabled B"OK" B"Dump file" MFALSE) filterList = tbk_GetString(" t,"") && "(*.txt),*. prompt = 2SaveBadHyperlinkReportIn",\ "Record bad hyperlinks ...") oldDir = linkDLL "TB40DLG. STRING saveAsDlg( ,INT) defName = "BadLinks. defPath = pathOfFile( dummy = tbk_SetCurrentDirectory( It = tbk_reset the bitmap files that indexer controls notifyBefore firstIdle myPg = tbk_Container( getToolBookIniItem("Backdrop","File") propValue directory" = pathOfFile( "badFormat" updateBitmapList somethingSelected = NULL B"browse" tbk_reset LOCAL bmpList, dibList thePath = linkDLL "TB40dos.dll" STRING GetFileList( "SortTextLines( & "*. & "*. CRLF enabled B"OK" [refFocus B"defaultbutton" = lowerCase( olastSelected oselectedTextLines <> olastselected buttonClick myBg = sample = backdrop" errfld = infofld = dummyName = dummyResName fN = fN <> lockScreen bmp = normalGraphic resource ss = Resource fN OK = ( B"OK" B"defaultButton" stretchGraphic B"Preview" errFld = makeThumbnailName fN fN) & "thumbnai\" & shortFileName(fN) ") & txt = tbk_ScrollListBoxToSelection initDialog "anim_edit" {mousePos, isShift, isControl SYSTEM s_anim_PathObject do_buttonDown /"editorScripts" isObject( do_dragging o<> default do_endDrag do_curveVertice key, do_keyDown I >= S <= keyDownArrow theTarget setCursor (0, 0, 0, 0, 0x0200) 6, 0, 0 -- handlers called manipulate {'s path dialog UI -- vertexPosition verticeNumber newPosition moveVertex LOCAL OBJECT sysPageUnitsPerPixel) -- returns the a given pathObject theVertices verticeList verticeCount updateSettings SYSTEM s_anim_animationSettings[], s_anim_currentAnimation, s_anim_CurrentObject enabled "integer" "duration" "steps" B"ShowAllSteps" B"FixedPath" 13] = FALSE) B"forever" "reps" t = " B"CelAnimation" "StepsPerCel" buttonClick "stepsPerCel" keyEnter B"close" isOpen "anim_edit" --stub keep sysbook looking animations startSliderMove pos SYSTEM s_anim_PathObject, s_anim_CurrentObject, s_anim_dx, s_anim_dy, s_anim_animationSettings[], s_anim_idleAnimations stopAnimation "aborted", "anim_edit" "selectionHandles" isObject( vertexPosition(1) 6] = y2), 10]) = 0 offsetPathBy(theVertices "selectObject" compilePath( 9] = 10])/4 - 1 sliderMove pos 10]) > 0 %"0.00" "currentTime" StepNumber = jumpToStep 10], 11], 10], 11], whichStep, compiledPath, totalSteps, startPosition, CelAnimation, StepsPerCel, theTarget q < 0 ls = lockScreen +1)*4-3 +1)*4 updateCel LOCAL CelNumberToShow,CelNumberToHide,CelCount so that 0 shows -- ( 0 corresponds -- calculate fregards setting -- so always starts ) -- Cels -- i.e. n kn = 0 Mwe want --stub keep sysbook looking animations buttonClick SYSTEM s_anim_PathObject, s_anim_CurrentObject -animationSettings[], s_anim_animationCache[][], s_anim_idleAnimations "anim_edit" "selectionHandles" anything already being animated on Fstop w) - 1 stopAnimation "aborted" isObject( startAnimTimer he[1][7] = s_anim_animationSettings[7] times through path he[1][8] = 38] -- S10]) = 0 vertexPosition(1) 6] = y2), offsetPathBy(theVertices "selectObject" 10] = compilePath( 9] = ( 10]) / 4) - 1 he[1][6] = he[1][10] = he[1][11] = he[1][12] = he[1][9] = 9] --Total Steps he[1][2] = 0 --CurrentStep he[1][3] = --notify he[1][4] = 4] --Use Cel he[1][5] = 5] --Force -- the starting point lockScreen he[1][6] he[1][4] FALSE he[1][1] = a_timeGetTime() --StartTime doneAnimatingnotify selectedVertex, s_anim_dx, s_anim_dy, ls = newVertice s_anim_selectedVertex) r= -1 error sizeTarget /"editorScripts" moveTarget stopAnimTimer -- moves the slider xpix sysPageUnitsPerPixel sliderMin sliderMax scale sliderBounds nearestPupp( oldP nearestPUPP( s_anim_dx pos - oldMouseX sliderPos mysliderPos startSliderMove leftMButton primaryMouseButton() newMouseX newP b(x1, ),x2-w) = NULL h-x1)* )/(x2-x1-w)+ sliderMove endSliderMove pageSlider pos SYSTEM slider_mode x"on" xpix sysPageUnitsPerPixel sliderMin sliderMax scale sliderBounds nearestPupp( B"thumb" nearestPUPP( pos-x1+w )/(x2-x1+w)+ thumbBounds curPos sliderPos sliderPageSize pos - initializePage valName SYSTEM sftsSetFile LOCAL kfields,ktypes, initVal = tbk_GetString("NoneBrackets","[ num = ftsGetIniVar("CREATE","KEYFIELDS", xisType(DWORD, kfNum = kfieldData = jTE","KF"&(i+3), kfieldName = kfieldType = typeString = "Date" Integer" 6Real Number" NCharacter" kfieldname &&"("& :&&"("& dropdownitems combobox "choice" comboBox " [newKF = keyEnter buttonClick B"ok" B"help" notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick ocancelBtn = B"Cancel" tbk_Container( odefBtn = B"Choose" orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick odefBtn = B"Close" tbk_Container( ocancelBtn = orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y buttonClick dataType = cbox = comboBox "formats" >= "U" enabled cBox = tl = selectedTextlines "tags" keyRef = initType dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" B"U" dropDownItems combobox " B"U" B"U" &"/" "/R/I/T/C/" B"R" buttonClick LOCAL kfields "tags" numLines = valName = tagEntry(tbk_GetString("New Hotword Tag"),\ "TagColon","Enter :"),"","") c"," q) > 1 kBadFTSTag",\ "Tags may xcontain commas multiple currLine = 1 "A tag that palready exists." dataType = "value entry" tbk_bookRef() typeString = "Date" Integer" 6Real Number" selectedtextlines initType -- initializes dialog that prompts a 3D style -- value[1] holds the "threeDeeStyle" userProperty selectedGroup, initDlg border "borderbuttons" "stylebuttons" "sample" useWindowsColors updateSample updatesample inorout = threedeestyle "borderButtons" threeDeeRect sized close returnstring tbk_linkIniFileFuncs readObjProps ( o<> 1 targetWindow NewBackground -- Get ini default settings -- If a has a "propValue" property, -- use that value same -- dialog {. Checked checkboxes can be used %such. iniFile = "?" bg = pg = NULL; pg = objs = getObjectList(pg," ,comboBox", defSecName = tbk_IniName = tbk_iniFile() propType = oType = propName = secName = defVal = y--defValue readIni = getToolBookIniItem("Startup Preferences", ~("startup", ) = 1 nam = "sys" ss = " && " && obj = propsRead pg = -- Where they differ {, change -- If a {. Unactivated SYSTEM s_wid_targetObject, s_wid_targetWindow bookref = tbk_bookRef() bg = oldStartupSysBooks = applyNow = P-- ( B"Apply" pg = t(pg," ,combobox", ss = cmd = " " && " && ) = 1 sysProp = *&& " " && ) <> 1 setToolBookIniItem(" " && " && tbk_GetString("WarnStartupChange",\ "You specified a 4books && "The will take effect"\ Iyou Multimedia close -- converts pageUnits Ruler putoRuler pu retval = pu/1440 metric *2.54 %"0"&sysdecimal&"00" RulertoPu /2.54 (1440* roundtoNearestN( (1440* sysPageUnitsPerPixel) -- returns 8 multiple n nearest ^ x,n (x/n)*n -- handlers tfields on LOCAL oldTxt, filterObj fType filterobj = Q <> newTxt = g= "INT" (x > 31 x = 13) c = = INT allowed = "-0123456789" %6789" & sysDecimal >= "0" >= "0" & & "00" resize x1,y1,x2,y2, tx1,ty1,tx2,ty2,xp,yp,baseRad ssm = sysSuspendMessages sol = lockScreen targetWindow sizedObj = rad = n * xp m"Border" D,y1, x2,y2, x1,y2, x1, -1) * xp m"Highlight" x1+xp,y2-yp, x1+xp,ty2+yp, tx1+xp, +yp, +xp,y1+yp, tx2- -xp,y1+yp +yp, x2-xp, m"TabShadow" Mrad-xp,y1+yp, ]xp,ty1+ +yp, x2-xp, x2-xp,y2-yp, x1+xp,y2-yp +2) * xp U"TLHighlight" ,y1+xp U"TRShadow" +xp,y1+xp, xp,y1+ - 2) * xp xOff = xp*2; yOff = yp*2 m"Highlight2" 6,y2- /, x1+ `,y1+rad+ t,y1+ w-xp,y1+ , x2- m"TabShadow2" Off, x2- , x1+ = ssm = sol resizeBorder notifyAfter otbk_wid_currentTab LOCAL logical ssm,sol x1,y1,x2,y2,tx1,ty1,tx2,ty2 n = _CurrentTab T = lockScreen targetWindow -- Action here 9" && n) ssm = sysSuspendMessages resize x1,y1,x2,y2, obaseRad 9area" 9" && regular = sol flushMessageQueue() tbk_wid_numTabs n < 2 n > 7 zmust be 2 isOnBackground = onBackground ownerObj = oldNum = seedgrp = duplicate 9" && 9" && sized ) - 1 x1,y1,x2,y2, tabWidth,tabHeight, , i, rightx sol = sizedObj = yp = sysPageUnitsPerPixel = tbk_wid_tabHeight tabHeigth = NULL; = 240; ) - 1 = (x2-x1) / x = (i - 1) * + x1 9" && i) = x+ = x2 resizeTab grp, x,y1, , y1+ xp,yp, tx1 = x; ty1 = y1; tx2 = ; ty2 = y1+ ,xp,yp, = ssm = sol x1,y1+45,x2,y2 m"border" x1,y2, x1,y1+Rad, x1+ y1, x2- y1, x2,y1+ x2,y2 } = ( +2) * xp U"TRShadow" ,y1, x2,y1+ -1) * xp U"TLHighlight" x1+1,y1+ , x1+ ,y1+1 Hxp; rad = ( - 1) * xp x1,y2, x1,y1+ 1, x1+ 8,y1, x2- y1, x2,y1+ warning expandString(tbk_GetString("WarnRemoveSysBook x",\ "This Preferences dialog box won't be available on the"\ && "Tools Multimedia ToolBook )Author level 8(""%1"") xlinked." \ && "Other authoring tools such ~ Property Editor && "most commands"\ && "on calso depend on 8."),\ ](shortFileName( tbk_Container( 8"))) ) buttonclick fref = "startupSysbooks" stl = selectedTextLines myBkName = remStr = anyway") canStr = "&" & Cancel") "&" & c"ctb40a.sbk" RemoveABook X",\ "Warning: If you 8""ctb30a. C","\ && "CBT Edition functionality will be impaired.")\ "&" & fixScroll notifyAfter initEnabled oenabled = ( propValue b(1, , 128)) = NULL isType(REAL, < 128 update keyDownArrow x >= x <= x = 8 x = 9 oldText sanityCheck() notifyBefore real, >= 1 <=128) = 254 = 255 ) tbk_GetString("PatternError",\ : The the range 1 128,"\ solid fill color, stroke pg = oldT = txt = "." --** INTERNATIONAL ? 3"0." caretLocation = xIsNumber( nam = pg = PuToRuler( RulerToPu(txt) pg = propValue pg = "GridSpacing notifyBefore OK sanityCheck < 30 > 4320 tbk_GetString("gridError",\ "The you chose range (30 4320 units)."\ && "Resetting value.") pg = = NULL pg = pg = puToRuler( notifybefore notifyBefore x = 13 orefBtn buttonClick ocancelBtn = B"Cancel" tbk_Container( odefBtn = B"iconDisplay" orefFocus tbk_IsWin95() u= "pushbutton" hiliteButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y _edit2Darray editArray[][] Hreference, arrayName, ownerobj SYSTEM s_editArray[][], s__edarrayResult,s__edarrayName v = defaultPage v = " " && %modal s__edArrayResult & "" ownerObj "" cmd = " 4" && & "[][];"\ & "= s_EditArray" & "= Y@" & && " " && && "= ss = 4" && & "; [" && [@" & && " " && ss = "i1" "i2" dimensions( "dim1" "dim2" update 1, 1 "val1" = "OK" closeWindow clearArray targetWindow <> incrementnum() = TRUE update x = keyDownArrow decrementnum() "dim1" FlushMessageQueue() x = 27 -- x = 43 x = 45 oldText = xisNumber( propValue "which Dim" "i2" \ "val1" notifyafter notifyAfter _edit1Darray editArray[] Hreference, arrayName, ownerobj SYSTEM s_editArray[], s__edarrayResult,s__edarrayName v = defaultPage v = " " && %modal s__edArrayResult & "" ownerObj "" cmd = " 4" && & "[];"\ & "= s_EditArray" & "= W@" & && " " && && "= ss = 4" && & "; [" && [@" & && " " && ss = "i1" dimensions( "dim1" update 1 "val1" = "OK" closeWindow clearArray targetWindow <> incrementnum() update x = keyDownArrow decrementnum() "dim1" FlushMessageQueue() x = 27 -- x = 43 x = 45 oldText = xisNumber( propValue "which Dim" "val1" notifyafter notifyAfter notifyAfter update row, col SYSTEM s_EditArray[][] LOCAL txt xtra[] 7 = NULL r = trim( dimensions( byDim1 = dimSpec = 1 maxi = i] = 1 txt = row][i] i] = 1 olastSel col <> i = P <> i = i = 1 i = 1 bn1 = "[1.." & & "]" bn2 = "[" & & "]" olastOtherDim = "[" & row & "]" M"1.." & & "]" fld = 0<> col updateprompt "value "val2" = " = bn1 " = bn2 oselectedTextLines = i otextRightOverflow) + b(0, i - 5) fixOverflow textScrolled ( ("i" & n = = n; otextUnderFlow > 0 tro = scrl = B(i + ccnt = "..." B(i + lockScreen targetWindow = i = i = x = "[" & k + n & "]" & 9& "[" & i & "]" = "[" & i & "]"& 9& "[" & k + n & "]" "numbers" = _tbk_AddHyperlink obj, linkName, pgRef, transFx, linkType, curs LOCAL hyperlinks[][] tbk_HasHyperlinks( ( = _asym_hyperlinks i = _tbk_HyperlinkIRow( i = 0 i = dimensions( ) + 1 i = 1 i][1] = _tbk_AddLinkToArray(hyperLinks, i, obj = _GetHyperlinks LInfo n = i][9] i][7] i][6] i][4] i][3] i][2] i][1] hLInfo = & CRLF Hreference, iRow, --** HCO 940727 itemOffset( .>") > 0 S][2] = e][3] = v][4] = ][2] = tbk_nameOrID( ][3] = tbk_altPgName( thisBook = destBook = tbk_Container( (NULL ][4] = fName = destPath = pathOfFile( thisPath = "c:\" "c:\x\" relPath = tbk_MakeIntoRelPath( shortFileName( hyperPath = asym_hyperpath inPath = (tbk_FindPathFile( C) <> "The destination a directory"\ && "that will be searched automatically. You can:"\ && "A. Add the current 8's list directories"\ nThis possible"\ find 8even mbooks"\ a different configuration , simply Hchanging"\ stored property"\ & "B. Store 8file makes faster but && "won't be able around without breaking"\ f"&A. Directory Search "&B. "Add" _SetHyperPath ][4] = ][6] = ][7] = ][9] = bk, what bk <> bk = bk = bk = bkName = BookDir = tbk_CurrentDirectory() deftag = "< tagLen = BookDirLen = dir = <> "\" @bookDir +) = 1 ) = 1 taglen thePath = tbk_RelativePath( *<> dir thepath _asym_hyperpath _tbk_BadLinksList --** HCO 940727 stack badLinks tbk_FindPage ( [i][2], i,3], i][4]) = i][1] _tbk_ClearHyperlinkFromArray newLinks[][] WORD n,i,j,k n = i = IsAnsArray = ( ) > 10) (i > 0 (n = 1 i = 1) -- special Mbecause array assignment bug i][j] = reset i > 0 j][k] = j][k] n - 1 j][k] = j+1][k] = newlinks 1][2] <> ) <= 10 ) = 1 1][2] = _AutoCloseCheck loc v = . = mousePosition objectFromPoint( buttonClick _tbk_PopupPage popStyle, pos, captn, {oldPg oldCurs maxPopups = 5 --** MAGIC NUMBER magicName = "Do xrename me" myBk = ss = (s_tbk_popViewers) >= isOpen = TRUE parentHandle close v = ss; -- available vtemp = && i) vTemp "There asym_resetCursor tbk_TempViewer style v = "sysMenu" imageBuffers v = 1 alwaysReader captionBar tbk_CloseOnEsc c"autoClose" c"shadow" c"thick" v = "thickFrame" c"thinCaption" v = "thinFrame" v = " v = " v = dialogFrame ss = --** DEBUG X"TB40win.dll" STRING ScreenFromPage( ,INT, VerticalDisplayRes() HorizontalDisplayRes() -- place mouseclick pos = --defaultPosition v = " (pageUnitsToScreen( , targetWindow) windowHandle &,pageScroll defaultPage x2 > s() - x2,0 y2 > ) - y2 x1 < 0 H-x1,0 y1 < 0 H0,-y1 sharedScript " tbk_container( foundScripts fFocus searchString ASYM_BeenHere defaultButton Button id 5 of Page id 49 defBtn needFix Button id 5 of Page id 49 refBtn Button id 5 of Page id 49 cancelBtn Button id 5 of Page id 49 fFocus instructions Edit scripts of objects: in,ms ThreeDeeRect bottomLine topLine foundScripts .'+ + nameOffset stbk_searchString nameOffset stbk_searchString buttondoubleclick leavePage -- edits the found SYSTEM stbk_searchString selectedTextlines = NULL obj = nameOffset = ~("(", $-1) editScript notifyBefore buttonclick buttonclick Cancel cancel buttonclick cancel keyUp buttonclick notifyBefore Close author keyDown enterPage keyUp leavePage Button id 5 of Page id 49 Field id 11 of Page id 49 refFocus Button id 6 of Page id 49 age id 49 sharedscript "hg tab 02" sharedscript "hgtab02" hgtab02 Button id 5 of Page id 49 e table 6.13" sharedscript "critical pollutants table 6.10" Hotword id 7 of Page id 0 Hotword id 1 of Page id 4 Hotword id 13 of Page id 6 Hotword id 0 of Page id 10 Hotword id 13 of Page id 37 12 of Page id 429 ) <> 1 CopyError() = "Add" "clipPkgPrompt" 've added disk srcFile = ) + 2 -- finally, = minimalPaths( lowest common denominator directories = insertPlaceHolder( -- Hard which are alright may be child , so just ) clean ) -- CD-ROM Packaging completed, however 1 more .","Exclamation") incomplete."," sCompleted Successfully."," -- returns th without fName i - 1 -- looks finds # pathList Z retValue Y = " & "\" & & "\" & ) = 1 fileName, & "\" & ) = 1 whether -- prompts each Z init[] 1] = #2] = " " && ?2] = Z3] = f4] = tbkToolsDlg( ,"Choose Package Option", -- gives efailed continuing quiting !There a problem copying " && upperCase( & ". xbe enough !?"," . If because destination on different drives, a attempted, followed Ha delete successful errNum, = -17 -- moving accross " && & ". #?"," =#filename partially) qualified cnt - 1 Vi+1 -- removes redundancy updates $mmSources appropriately. ex) passing C:\FOO\BAR,C:\ \BOB would yield C:\ ?"curPath = removeDuplicateItems( " <> replaceRelativePath ") + 2 & "\" sortList( duplicate ms lst Z curItem , <> -- walks replaces every occurance ;&old oldSrc, Z oldDirOnly, ), src = directoryOnly( ) <> * = " =* -- asure & "\" & ) & src +) -- & "\" & = 1 replaceExplicitPath oldPath, newPath q,, src m, = , <> , = " scr = C- = newpath & m- = letter ~(":", +existance itemExists itemTxt, -- displays ,Windows messageBox &,response &, @icon, @buttons, defaultButton, modality \ @style -- defaults: a single OK appliciationModal . "USER" INT MessageBox (WORD, = 0x0001 = "AbortRetryIgnore" = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 = "Stop" H0x0010 H0x0020 H0x0030 H0x0040 H0x0100 H0x200 H0x1000 = "task" H0x2000 = "" K= "" (windowHandle targetWindow,@ = "OK" = "No" mode --** INTERNATIONAL otbk_wid_currentTab "WidgetProperties" value --** c"User" myAction tabNumber SYSTEM stbk_curOb, stbk_propValues, stbk_propNames LOCAL STRING testobj tbk_lastWin() p <> z <> "< testObj = & "" xisObject( updateBrowser notifyAfter logical ssm,sol x1,y1,x2,y2,tx1,ty1,tx2,ty2 n = _CurrentTab N = lockScreen targetWindow } = sysSuspendMessages 9" && n) resize x1,y1,x2,y2, obaseRad 9area" 9" && regular = ssm ss = = sol flushMessageQueue() tbk_wid_numTabs n < 2 n > 7 zmust be 2 isOnBackground = onBackground ownerObj = oldNum = seedgrp = duplicate 9" && 9" && sized ) - 1 x1,y1,x2,y2, ,tabWidth,tabHeight, , i, rightx ssm = sol = sizedObj = yp = sysPageUnitsPerPixel = tbk_wid_tabHeight tabHeigth = NULL; = 240; ) - 1 = (x2-x1) / x = (i - 1) * + x1 9" && i) = x+ = x2 resizeTab A, x,y1, , y1+ xp,yp, tx1 = x; ty1 = y1; tx2 = ; ty2 = y1+ ,xp,yp, = ssm = sol x1,y1+45,x2,y2 m"border" x1,y2, x1,y1+Rad, x1+ y1, x2- y1, x2,y1+ x2,y2 y = ( +2) * xp U"TRShadow" ,y1, x2,y1+ -1) * xp U"TLHighlight" x1+1,y1+ , x1+ ,y1+1 Hxp; rad = ( - 1) * xp x1,y2, x1,y1+ -, x1+ 4,y1, x2- y1, x2,y1+ tbk_wid_tabText ) - 1 9" && i) result ) - 1 9" && i) spreading }proportionally -- n: 1 , two -- sent HspreadHorz spreadVert LOCAL bnds,list,temp objArray[][] xy1 = 1 obRef = 2 obcount = sortbyposition -- between }, use that %standard sp = (n+2) 1][obref],0) loc = k2 + 1) ls = i-1][ ] + sp tbk_GetString("MustSelect2Objects",\ "You must more -- handles shrinking largest/smallest shrinkgrow how objList = ) < 2 sortbysize sz = sz = dimensions( ls = -- gets lowest lowestlayer minlayer = -- handler centering -- "how" horz, vert, newpos = 0,0 bkSize = "0,0" = NULL SelectAnObject",\ ls = curob curOb <> " -- sets up twoDquicksort Hreference,n i][1] = i][2] = sz = i][1] = sz * i][2] = -- sorting algorithm: -- keep mind arrays are passed here, Hvalue fArray[][] ,dtype SYSTEM stbk_noSwap twoDquicksrt >, 1, M),n, l, r,n, r > l , l, ((l+r) lst = l (l+1) test = i][n] < l][n] i][n] < l][n] i][n] < l][n] stbk_noswap , l, -1,n, , lst+1,r,n, a, b = farray[a][i] b][i] b][i] = -- brings up content a 2D requestArray a[][] d = ( a) a[i][j] & " " -- sculpts a existing 3D a 3D -- inOrOut specifies style inset raised -- sculpted -whether outside border threeDeeRect ls = ls = curObj = curObjType = ll = lr = ur = ul = "OLE" "combobox" curLayer drawdirect bottomline = "bottomLine" sysPageUnitsPerPixel, topline = "topLine" ThreeDeeRect sized xThreeDeeRect xpix = -1* syspageunitsperpixel ypix = -1* "out" topcolor = bottomColor = SelectRectOrField",\ ls = ll = lr = ur = ul = ll,lr,ur ll,ul, topColor exportText filterList,fileName -- link needed dll linkDLL "TB40DLG. STRING saveAsDlg ( , INT) y (*.txt),*. ","Rich SaveAsDlg(tbkGetString("Export obj = jrichtext importText ,fileLimit X"TB40dos.dll" LONG getFileSize( X"TB40dlg. openFileDlg ( x = 64*1024 ImportTextFileFilters",\ Files (*.rtf),*. txt,All #(*.*),*.*") OpenFileDlg( b"), fileSize = fref = expandString(\ ImportFileTooBig",\ %2; cannot exceed %3."),\ WarningReplaceFieldText",\ will replace current contents your f"OK" Cancel") x"OK" oldCursor = se = se ss = = "{\rtf" 1= ss _pathAnimation SYSTEM s_anim_sourcePage, s_anim_idleAnimations ssm = sysSuspendMessages sc = slestyle = sysLineendStyle slesize = sysLineendSize bk = v,solidHead / = 1,3 | = TRUE onBackground animate. You must ~some = FALSE tbk_lastWin() xisExtensionAdded("TB40ANM.SBK") extension (sysToolBookDirectory&" stopAnimation "aborted != copyObject( objList = getObjectList( !, "", ') > 0 U) > 0 excludeTab ) > 0 !, "stage", ) > 0 readerVisible = "0,0" , "", ) > 0 ) > 0 ) > 0 ) > 0 "SelectionHandles" "anim_edit" currentPage %modal _used during editing = ssm o= sc DummyResName "trasnexiR Rixensart" cleanupDummy pg = B"preview" pg = getToolBookIniItem("Backdrop","Preview") = TRUE B"sample" pg = 3Sample") = targetWindow <> FindBackdropObject( ) <> tbk_GetString("Change cmd"," ,Add LOCAL bmp ss = = bitmap . <> @ = 0 resource pseudoFocus textScrolled ( - 2) keyDownArrow + 2) - 24) + 24) 3000 FindBackDropObject bg (bg," isResource restype, resName ss = cmd = " " && 1 && setBackdropScript STACK buffer LOGICAL found wnd = tbk_lastWin() = FALSE : = resourceList("sharedScript", } = "tbk_backdrop" scr = sharedscript " tbk_container( obj = setBackdropProps drawDirect excludeTab enabled tbk_LockMove _UseBackdropResource v = "Set Page Name" tbk_Container( myBg = defaultPage %modal orefFocus ss = obj = r= NULL propValue "bitmap scroller" = normalGraphic B"Stretch To Fit" = stretchGraphic = getToolBookIniItem(" ","Bitmap") x") = TRUE) B"preview" ","Preview") = B"sample" ","Sample") = LOCAL backDropObj workWindow = setToolBookIniItem(" fld = bmp = p = p > 0 [lastSelected ss = wasOnBackground = onBackground bg = bgSize = "0,0" useButton = = FindBackDropObject(bg) WorkWindow ss = setBackdropProps setBackdropScript -- backdropObj <> oldResource = sameResource = drawDirect yesStr = tbk_GetString("Yes","") noStr = No","") /OKToDeleteBackdropResource",\ "No other old . OK discard f"&" & "&" & resource nothing >TheResource CloseThisWindow closeThisWindow cancelOK noCancel the bitmap files that indexer controls notifyBefore firstIdle getToolBookIniItem("Backdrop","Resource") propValue "backdrop resource" = updateBitmapList somethingSelected = NULL B"Import tbk_reset SYSTEM s_tbk_junk X"TB40dlg.dll" STRING ListToTextline( SortList( myPg = tbk_Container( bk = bmpList = ResourceList(" ",bk) cnt = 3) = 0 dummyName = dummyResName() bmpID = tbk_Trim( nothing & LF & OK = ( enabled B"OK" [refFocus B"defaultbutton" olastSelected oselectedTextLines <> olastselected buttonClick LOCAL info myBg = errfld = sampleObj = infofld = lockScreen bmp = oldBmp = normalGraphic bmpDesc = p = p > 0 B"Preview" stretchGraphic makeThumbnailName fN pathOfFile(fN) & "thumbnai\" & shortFileName(fN) txt = tbk_ScrollListBoxToSelection thumbwidth sysPageUnitsPerPixel) * 7 labelWidth 0el) * 30 sized > 2*thumbWidth() syssuspendmessages osliderPos osliderMin onumTics adjustNumbers -- sets the location specifed value LOCAL scale sliderMax mysliderPos xpix sliderBounds "bar" nearestPupp( oldP nearestPUPP( percentage newP x1 + (x2-x1-w)* xsysSuspendMessages sliderMove -- renumbers labels tallTicSpacing adjustSize curfield %"0.00" xCenter U"0" %"0.00" = TRUE curField -- centers {horizontally on maximum = NULL && " invalid." mySliderMax minimum && " mySliderMin frequency tic marks on high U"0" U"0" myTallTicSpacing tics on > 50 must be a between 1 U"base" (x2 - x1) / leftMost curLine curline myNumTics gets above. b-x1)* )/(x2-x1-w)+ -- notify handlers Mthese aren't handled. notifyBefore startSliderMove (endSliderMove -- returns whole pixel, pageunits d val, X"user" getsystemmetrics( notifyAfter primary mouse primaryMouseButton s23) >0 updateSettings SYSTEM sftsTitle,sftsCntxt = keyEnter buttonClick B"ok" B"help" SetFile,sftsKeywords,sftsContexts, LOCAL keywords,contexts reference the current pgRef = -- display ,<> NULL `" = "Page"&& title #" = ( ftsTitleValue S" = ( -- store initial , so later we can changed see whether override default location titleInObj = (ftsTitleOverride setting enabled B"property" = w" = titleLoc = ftsGetIniVar("Options"," ",sftsSetFile) -- there {defined {" = TRUE {" = obType = " = " -- so disable those options {" = FALSE {" = exluded B"exclude" = (ftsIgnore comboBox " " = ( ftsContextValue " = ( " = "" so we pgKeywords = ftsListToTextline( global list numLines = n","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw, ) = 0 "index available contextLine = dropdownitems combobox " " = "< [newContext [newKW saveSettings overrides qvalue. " <> -- stroe should be excluded " <> "< -- does xuse -- " <> -- juses -- other more ] were added these qvalues = dropDownItems = ftsTextlineToList( numcontext = [currLine lineCnt = 0 currcontext P) > 128 ftsSetIniVar(" = ftsInsertLine( numKW = currKW ) > 128 ","kw"& ","kw"& SYSTEM sftsSetFile, sftsMainBk tabmode "folder" 7 <> NULL updateSettings = keyEnter buttonClick B"ok" B"help" updates the DB match settings file , sftsContexts, sftsKeywords LOCAL kfields,sections,keywords,contexts o" = list books incBooks = ftsGetIniVar("Options","includeBooks", trueValue "included k" = tbk_Ellipsize( , 24, " " = ftsListToTextline( excluded excWordFile = CREATE","CWDFILE", ftsFileExists( ?) > 0 i" = i" = k, 40, " i" = num = KEYFIELDS", kfNum = kfieldData = KF"&(i+3), kfielddata selectedtextlines " = 1 dataType = initType "type" named ONC_SECTION", default location titles titleLoc = ns","TitleLoc", K" = TRUE {" = FALSE enabled {reference" = K" = {" = comboBox "obType" = "obName" = continues' textFlow = ns"," xisType(LOGICAL, B"textContinues" = incOptions = " includeObj = ns","includedObjects", = itemNumber( ^) > 0 excOptions = " /,hidden" ns"," opt = ) > 0 numLines = DWORD, kwLine = ","kw"&i, contextLine = flag determines whether has been -- opened newSettings = ns","NewSet", "<> " [addBooks [valCnt [updBooks handler saves current saveSettings sftsHwtags, sftsBooks,sftsSections ktypes, vwrRef = "dialog" tbk_bookRef() TextlineToList( d = snamed = ftsTextlineToList( exclusion options ftsSetIniVar(" have added, updateFile -- numKF = tagName = sftsHWtags ?&&"C" -- indicate that these used textlineCount( num+3, fieldName = ,"#"& excess numKW = [currLine lineCnt = 0 currKW E) > 128 ","kw"& ","kw"& numcontext = currcontext ) > 128 should be updated, updateBooks ftsSetPage }based on which 9was pressed tabPressed tabNum "fileTab" = ( "pageTab" = ( "objTab" = ( "hwTab" = ( "kwTab" = ( buttonClick SYSTEM sftsTitleLoc LOCAL pgList,pgNums,pgText tl = selectedTextlines "keywords" ftsSetPage() kw = R = "< Keyword"&&"'"&kw&"'"&&" xcurrently used. >" comboBox "obType" <> NULL "obName" <> openWaitDlg "Building list , please wait..." -- incBooks = ftsTextlineToList( "included books") !trueValue hitCount = 0 bkRef = pgCount = pgRef = pgKeywords = ftsKeywords itemNumber(kw, ,) > 0 vwrRef = "dialog" tbk_bookRef() *"Pages Using '"&kw&"'" currentpage "where = getTitle( = niceRef( reference" closeWaitDlg %modal isOpen notifybefore oenabled = x( selectedtextlines ,sftsSetFile title ftsTitleOverride titleLoc = obRef = titleRef = " isObject( = ftsTitleValue bkName = splitPath( notifyAfter otbk_wid_currentTab LOCAL logical ssm,sol x1,y1,x2,y2,tx1,ty1,tx2,ty2 n = _CurrentTab T = lockScreen targetWindow 9" && n) = sysSuspendMessages resize x1,y1,x2,y2, obaseRad 9area" 9" && regular = ssm = sol -- Action here tabPressed n flushMessageQueue() tbk_wid_numTabs n < 2 n > 7 zmust be 2 isOnBackground = onBackground ownerObj = oldNum = seedgrp = duplicate 9" && 9" && sized ) - 1 x1,y1,x2,y2, tabWidth,tabHeight, , i, rightx ssm = sol = sizedObj = yp = sysPageUnitsPerPixel = tbk_wid_tabHeight tabHeigth = NULL; = 240; ) - 1 = (x2-x1) / x = (i - 1) * + x1 9" && i) = x+ = x2 resizeTab grp, x,y1, , y1+ xp,yp, tx1 = x; ty1 = y1; tx2 = ; ty2 = y1+ ,xp,yp, = ssm = sol x1,y1+45,x2,y2 m"border" x1,y2, x1,y1+Rad, x1+ y1, x2- y1, x2,y1+ x2,y2 } = ( +2) * xp U"TRShadow" ,y1, x2,y1+ -1) * xp U"TLHighlight" x1+1,y1+ , x1+ ,y1+1 Hxp; rad = ( - 1) * xp x1,y2, x1,y1+ 1, x1+ 8,y1, x2- y1, x2,y1+ propValue LOCAL lst = lowerCase( fixScroll [stack loadConfig cfgLst = GetIniVar("Startup Configs","", tbk_IniFile()) myBg = tbk_Container( disableEscape tbk_GetString("No saved configurations","No ns.") linkDLL "TB40WIN. INT popMenu(WORD,STRING, 'windowHandle targetWindow, pageScroll !MousePosition saveConfig sysErrorNumber = 0 OK = PromptConfigName",\ "Please enter a sern = = NULL <> 642 cfgName = OK = itemOffset( ) < 1 YesStr = NoStr = expandString( PromptOverWriteConfig x",\ "The p""%1"" already use. Overwrite?"), f"&" & "&" & "&" & Cancel") OK = ( SetIniVar(" ConfirmConfig x",\ "This has been recorded the"\ && "[ ] section %1."), RecError","Oops. Recording error.") otextUnderflow > 0) bs = " bs = " u<> bs u= bs ShowDumpProgress captn, n1, n2, txt, manualClose SYSTEM s_cancel ("Script Dumper") tbk_Container( A = TRUE (n1 = 0 n2 = 0) isOpen close FlushMessageQueue() objectFromPoint(mousePosition defaultPage n1,n2 progress "gauge" okbtn = B"OK" %modal _DumpScripts ds_cnt, s_ds_oCnt, s_ds_PgN, s_ds_PgCnt, linkDLL "TB40DLG. STRING saveAsDlg( ,INT) Long GetFileSize( * RemoveFile( defName = ShortFileName( defPath = PathOfFile( p = ~(".", p > 0 \".TXT" filterList = tbk_GetString("Text file (*.txt),*. prompt = 6DumpScriptPrompt"," All Of This Book To ...") It = NULL fN = It s_ds_cnt = 0 s_ds_ocnt = 0 bk = [bgList & CRLF & s_ds_pgCnt = s_ds_pgN = 0 DumpObjscript bk, fN resourceList("sharedScript", bk) DumpObjScript (windows f <> 0 t, fN pg = bg = bgID = itemOffset( ) < 1 bg, fN oList = (bg,"", G, fN pg, fN (pg,"", charString("=",60) & INTERRUPTED BY USER cancelled") objsStr = linsStr = lines") ?& "," \ showDumpProgress complete"),\ && objStr\ fN) = 0 y,0,0, DumpingBookScripts",\ n = 70 -",n) & expandObjName(obj) & -",n) & c, n s = " (p." && & ")" " (""" & & """)" -- puts the -on-applications specified ini file /listbox initDlg LOCAL extInfo[][] appsTxt X"TB40DOS.DLL" fileExists( @n][1] holds title dn][2] made filename, helpText appList numApps = dimensions( there helptext beyond edge i][1]& i][2] fref = selectedTextLines buttonclick updates icon image -- shows another imports hasn't displayed already. showIcon bookname buttonRef = B"iconDisplay" -- store reference thisBook = tbk_bookRef() \ = NULL xisObject(" 8" && -- user normalGraphic "exe "default -- need a unique resource, which limited -- 32 ) <= 32 shortName = shortname = shortFileName( -- we've imported " && " && -- newIcon = -- has no special newResource = resourceList( runApp appRef tabloc = appStuff = VtabLoc + 1 appName = 8" && & appname & fileIsThere = ( D)=1) expandString(tbk_GetString("Could xfind 8x",\ 8%1."), xfound"," cleanup close ss = -- 8, but 's a sysToolBookDirectory & "mTB40.exe" && NoIniApps",\ old icons -- moot lst = curIcon iconName = itemoffset( ,Property Editor, ,wait,info")=0 -- load array, described above tbk_linkIniFileFuncs Add on Tools section toolbook.ini pMem = tbk_getWinPointer(4096) GetIniVar(" N","",tbk_iniFile()) key = } i][1] = i][2] = itemOffset itm, notifyAfter update row SYSTEM s_EditArray[] LOCAL txt xtra[] 0 = NULL N = trim( dim1 = dimensions( maxi = i] = 1 ooldScroll = olastSel <> i = i = 1 i = 1 bn1 = "[1.." & & "]" fld = <> row updateprompt "value "val2" = oselectedTextLines = i otextRightOverflow) + b(0, i - 5) fixOverflow textScrolled ( dmi1 = "i1" = tro = scrl = B(i + ccnt = "..." B(i + lockScreen targetWindow = ; = "[" & k + n & "]" "numbers" = notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip -- diplays the combobox, depending on type property -- that displayed. headertype propInfo cref = ] "cheader" fref = "textheader" value -- enabled / = NULL "UNKNOWN" "list" "boolean" "LOGICAL" = "ENUM LIST" "resource" "color" B"dialog" "multiLine" "STACK" "font" "custom" -- puts selected propGroup either LOCAL dlist X"TB40dlg.dll" listToTextLine( "fheader" -- 's a stuff, so box. cnt = (Value) lc = scrollable 1> lc linecount b(1,lc) dropdownitems listToTextline( isType("real", selectedItem = val notifyBefore tbk_reset -- These scripts the compiling animation paths -- -- compiles specified Cuser a compiled = that includes -- a point every }duration one repetition compilePath animationSettings[] LOCAL boundsPath,newPath,newPoint,newLength,loopedPath,i,StepNumber,currentOffset PcurrentVertex,currentLineLength,currentIncrementLength totalSteps,segLengthList,theLineVertices xcheckPathAnimLimits() tbk_GetString("The ctoo many frames."&CRLF& "Please reduce either steps per ftbk_getString("OK") currentDistanceOnLine 12] * possible closed (e.g. are touching) , don't want (because 'll be same -- so we'll throw out 1] - 1])<= sysPageUnitsPerPixel*2 1] - 1])<= =el*2 "Constant" -- calculate length 1])-3 hypotenuseFromVertices( -- correct lengths curved segments ci <= -- what percentage overall lenght distance between tempPercent -- each curveLength( (i*2)-1 (i*2)+4 -- firstPoint already "0,0," StepsPerSegment ci <= -- "Variable" timedCurveVertices( i*2-1 i*2+4 *2)&"," xreturned Hfunction since always within motherwise skip rounding error >= 0 points curveVertices( i*2-1 i*2+4 gth)&"," -- lineVertices( i*2-1 i*2+2 )&"," >= 0 i*2-1 i*2+2 -- comma (see comment 4above -- y value -- x -- should be (implying a -- so leave --we have positions , now athem xStart = yStart = xInc = (( 16] - ) DIV 2 yInc = (( 16] - j = 0 ) > 0 x - ( {* j),y - ( `* j),x + * j),y + * j)&"," default on a mstarting vertice )subsequent increments thereafter screen units. Requires 3 theVertices,offsetDistance,incrementDistance xOld,yOld,x,y,t,oldDistance, pointList,nextPointToFind Ax,Ay,Bx,Bye,Cx,Cy TwoBx Bx * 2 TwoBye -- t can -- 0 beginning -- 1 -- special Mso no ?/0 condition happens cstatement below Ax,Ay&"," theDistance incrementSquared = tTwo = 2 * x = ( Ax - ( %* (Ax - Bx)) + ( p* (Ax - + Cx)) ) y = ( Ay - ( ]* (Ay - Bye)) + ( * (Ay - + Cy)) ) -- find J(old x,y) -- ) >= 0 -- desired/ -- i.e. + (x- + (y- )&"," pointlist -- gets arranged feven along x,y,t,returnVertices, -- t -- 0 -- 1 Ax,Ay,Bx, Bx * 2 >= 1 x = ( Ax - ( * (Ax - Bx)) + ( * (Ax - + Cx)) ) y = ( Ay - ( * (Ay - * (Ay - + Cy)) ) on a verticeList, a,b,xRate,yRate,c, redundant -- but I'm xadding more confusing parameters (a,b) travel y directions traveled iterations given passed &"," Ax,Ay,Bx, 2 * Bx 2 * Bye will split o 60 -- t -- 0 -- 1 x = ( Ax - ( * (Ax - Bx)) + ( * (Ax - + Cx)) ) y = ( Ay - ( * (Ay - * (Ay - + Cy)) ) pathLength (seglengthlist)) on a Ubased on pntFromDistanceOnLine s_anim_dx,s_anim_dy,c, enterWindow SYSTEM stbk_customPropFlag, stbk_customDlgShown n = TRUE leaveWindow ipropValues, stbk_propNames, stbk_curOb, stbk_cursor updateFlag [stbk_propValues updateBrowser currentPage r <> NULL tbk_lastWin() -- handles sizing the browser sized lastWinSize LOCAL INT xpix,ypix OBJECT fheader,propFields,propButtons,splitter,bPinDown,bUprops,bDialog -- ignore code viewed -- (normally 's seen "Property Editor" pRef = sizeToViewer 0--** CO syspageunitsperpixel -- optimization: store frequently used {references --clientSz = clientSize clientSZ = "propGroup" propFieldBounds = tabFolder = we need zsome stbk_lastWinSize obTypeFld = "obtype" rightEdge = rightEdge1 = !- 6* rightEdge2 = :- 8* rightEdge3 = S- 10* "labelGroup" combobox "cheader" bScript = interest" = R- 4*xPix B"dialog" bdialog - 3* has changed: bottomEdge1 = bottomEdge2 = "nameLabel" dots" maxX = splitx = getToolBookIniItem(" ,"Splitter", J- 750) m-- - 5 "valueLabel" "NameLabel" : note, stored .ini pageUnits based -- on . To find out how big e, use -- getSystemMetrics. Refer openWindow sm_cxframe,sm_cyframe,sm_cycaption,defaultSize,defaultPosition {winRef -- lockScreen ominimumSize = 222,166 --*MAGIC metric indexes: 32 -- width sizable 33 -- height 4 -- sm_cxscreen 0 -- sm_cyscreen 1 -- 3000,3000 "0,0" X"user" (INT) -- cache oReaderStatusBar = pg = bg = mySize = ) = 2 oClientSize = myPos = ) = 2 = 0,0 omyIsOpen = mode "tabfolder" obmode [stbk_curMode closeWindow oclosing = ostate <> "minimized" statusbar setToolBookIniItem(" ,"lastMode", currentpage tbk_reset -- stubs prevent navigation _HyperlinkProperties obj, linkType, trigger SYSTEM s__HL1DlgResult LOCAL LinksArray[][] F = NULL tbk_HasHyperLinks( B = _asym_hyperlinks FlushMessageQueue() = "buttonClick" triggerText = "Button tbk_NameOrID(obj) <> "ID" xisType(DWORD, objName = tbk_GetString( _ && " (" & ="TextColon"," :") && & tbk_Ellipsize( 20, " ") & """)" _HyperLinkDB( = "OK" FindConflict( expandString( "WarningHasGoCommandScript",\ : The ca %1 message"\ && "handler that may prevent the working correctly."),\ ScriptTag = "-- This {has " & CRLF TagOffset = dimensions(linksArray) < 2 [1][2] = ) - 1 OBJECT STACK buffer STRING scr getHandlerList( "transition" wrd = -- Call function a [][] array. You must specify -- Obj can be caller expected result answer passed linkArray interaction editor) -- Parameters See documentation . If user will be able choose among a list standard triggers type: "Popup" "Goto". If assumed owns should be shown display only) 5. Ignored TriggerName = [][] Hreference, db_EditedLinks[][] db_TriggerName defaultLinkType ave your )least once give a file create [s_db_EditedLinks v = tbk_Container( defaultPage ss = ss = currentPage v <> oEditLinkTriggerName = s_db_TriggerName = oEditLinkType = "linked oEditLinkTriggerText = linkTypeCB = comboBox " waitCursorBtn = cursor" pgNameFld = linkToWhatGrp = -- private magic LinkInfo = _tbk_HyperlinkLinkInfo( BadLinkIndicator "BAD" x<> " linkPgRef = propValue enabled B"Browse" specific" fx = "jump" popup style" iniFile = tbk_iniFile() getToolBookIniItem("Hyperlinks"," itemOffset( ) > 0 defaultlinkType = fx = Transition") fx <> Style") Wait %modal o<> 1 db_TargetObject db_LinkType i To "Next" "Previous" "First" "Last" "Back" "Exit" pgRef = "<" & & ">" nam = tbk_IsNumber( !) = TRUE "WarnLinkToNumberName",\ whose " && \ because makes no" &&\ "distinction between" & ""%1""" & %1" & "They z%1."\ rename destination " &&\ 4creating ExpandString( 8" && thisPage = _tbk_ClearHyperlink( transFx = S fx" linkDLL "TB40win.dll" SetIniVar( setToolBookIniItem(" To what", ,transfx) useWaitCursor = &",UseWaitCursor) cursN = 4 tbk_lastWin() xisExtensionAdded("TB40HYP.SBK")) "CTB40R. extension (sysToolBookDirectory&" _tbk_AddHyperlinkToArray( targetWindow <> close = "OK" Cancel badLinkIndicator B"Bad enterComboBox winActivated searchandreplace ! #>%\' 31,38 selectChars sysSuspend searchString ASYM_BeenHere defaultButton Button id 2 of Page id 47 defBtn needFix button id 6 of page id 67 Button id 2 of Page id 47 cancelBtn Field id 24 of Page id 47 refBtn Button id 3 of Page id 47 4fFocus TabFolder tbk_Wid_CurrentTab _CurrentTab baseRad tbk_wid_tabheight tabHeight Tab 1 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow Tab 2 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type &Replace TLHighlight TRShadow Border Highlight Shadow Active tab area 3dTabBase tbk_wid_type Highlight2 Highlight TRShadow Border Highlight TabShadow Shadow TLHighlight TabShadow2 Shadow2 Highlight2 tab 3 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow tab 4 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow tab 5 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow Fin&d What: in,ms ThreeDeeRect bottomLine topLine findString replaceWith Repla&ce: in,ms ThreeDeeRect bottomLine topLine ReplaceString enterField matchword SearchAsWord Tools =@SetToolBookIniItem leavePage false 6getToolBookIniItem SearchAsWord Tools enterPage notifyBefore SetToolBookIniItem("Tools", "SearchAsWord", Z= getToolBookIniItem(" Match &Whole Word Only firstfind StopAfterFirstFind Tools =@SetToolBookIniItem leavePage false 6getToolBookIniItem StopAfterFirstFind Tools enterPage notifyBefore SetToolBookIniItem("Tools", "StopAfterFirstFind", Z= getToolBookIniItem(" Stop &After First Find prompt PromptBeforeReplace Tools =@SetToolBookIniItem leavePage false PromptBeforeReplace 6getToolBookIniItem Tools enterPage notifyBefore SetToolBookIniItem("Tools", "PromptBeforeReplace", Z= getToolBookIniItem(" &Prompt Before Changes Search Ran&ge: in,ms ThreeDeeRect bottomLine topLine B =)$ range All objects in this bookchycripts All objects in this book This page This page and background Page, background and book scripts Scripts in object hierarchy SharedScripts of this book buttonclick buttonclick cancel cancel buttonclick keyDown cancel keyUp buttonclick notifyBefore x = 27 oesc = x = 27 Close tbk_WinHelp tabFolder hIndex _CurrentTab 12800,12802 MTB40.HLP buttonClick keyDown buttonClick _CurrentTab "tabFolder" hIndex = "12800,12802" tbk_WinHelp( (,"MTB40.HLP") notifyBefore instructions Search Scriptslace Scriptsipts in this book keyDown enterPage leavePage keyUp author enterPage firstIdle paste clear leaveBackground hgtab02 Button id 3 of Page id 47 refFocus 34 of Page id 47 4 id 3 of Page id 47 vertexPosition( showHandles "selectionHandles" updateSettings -- forces Uends ~, they don't always grouped s_anim_CurvedVertices, sls = = TRUE "constant" FALSE (2880 + By("0,0,2880,0", ),",") + 2880), By("0,0,-2880,0", ),",") - 2880), BLACK "settings" = sls savePath sourcePage, ssm = sysSuspendMessages -- edited ls = LockScreen lockScreen sc = theVertices 15] DIV 2), compilePath( 10]) 4 - 1 t = " sourceObject = 4 t && " " && s_anim_sourcePage j t && " " && t = t &&" anim_startPosition(1) anim_startSize(1) t&& QUOTE & "The has been saved 14]&&" {." -- To play specify"&& 14]&&" [ animationNumber parameter y playAnimation message." = ssm -- used display angled/curved fellipses over -- also displays curves curvedVertices exist -- returns pathObject ( }created) so can be referred -- lines are named "1","2","3", etc. vertice fall on -- ;"3", -- O"3", thePath, segLengthList LOCAL lineList,verticeList,curveList,i,animationString,verticeCount BsavedStates q = NULL sysLockscreen -- i incremented point1 i = 2 ) > 0 point2 drawLine( ), i-1) /"editorScripts" drawCurve(previousPoint, , i-1) drawHandle( , i-1, & "," , i-1, elements [s_anim_segLengthList hypotenuseFromVertices( /"compiler" passed --stub sysbook looking animations )-- Major change version that the combobox " interest" responsible choosing inspect creating Nproper reference. inspectType what -- called objCbBox = comboBox " propValue windowEntered -- sent Hbrowser odoNotUpdate <> wasRightClick checkSelection SYSTEM stbk_lastSelObj, stbk_curOb helpText = NULL obj <> statusBar = statusbar keyMnemonic x c = grp = "tabfolder" tbk_wid_currentTab customPropInfo, stbk_customPropFlag o<> 1 <> cursor "resize" stbk_cursor = dg = TRUE [stbk_customPropInfo tbk_lastWin() currentPage tbk_reset orefObj updateBrowser -- checks selections refresh , stbk_curMode, stbk_curProp, stbk_propTypes, stbk_propValues, stbk_propNames LOCAL STRING currSel, obj oldActive = activeWindowHandle = tbk_ObjectOfInterest() cref = objInt = objectOfInterest -- -- ) <> 1 trueValue homeBase = ( obj, -- central place setting , sysvars setProp Epropname, propval, firstLineOnly executionBuffer,firstLineSpec objRef % = " propSetTabs = -- B"props" 's a property && " 's a setSysVar mode = c"user" -- c"widget" -- && " " && -- removed quotes support vbx -- R = ) > 1 " && && " " && && " " && && " -- " && && " " && && " " && -- = obj ss = ; sysErrorNumber = 0 1= ss -- test failed: errNum = tbk_GetString("PropNameErr1",\ a standard cannot have a value.") compiling" part error. -- INTERNATIONAL -- Note: verify freal situation : ")+1 ecancelled" -- sets _. Moved its own handler so ^names will xconflict varName,varValue 4" && varname && "= -- returns sysVarValue 4" && -- updates obj. If homebase P, selects &, stbk_propInfo, vRef = "Property Editor" tbk_bookRef() cBox = skipFlag selectedItem selectChange 2 = obj -- -- enabled isOpen objComboBox = ls = -- urrently browsed aption -- && "["& P)&"]" "tabFolder" fakeObj = "< 4>" -- weird stuff workaround tbk_wid_tabtext "System Properties, Variables" tbk_Wid_CurrentTab ShowUserProps showProps tbk_lastwin() "Standard " & LF & " Widget (obj) = 1 = (tbk_wid_props = FALSE objType = val = itemOffset( buttonclick showUserProps showWidgetProps = obj ss = vref -- displays values. -- convoluted fanyone's vNames,vValues,vlist,i propNamFld = propValFld = propGrp = "propGroup" ofld = "obType" = "< -- bug detect cause ES c"does systemVars -- -- linkDLL "TB40Dlg. SortList( ;vList) & CRLF ss = ("@"& && " " && U(val) > 40 &"..." "" & "" q>") -- selectedTextLines obref( lists updateHeader loc_vNames,loc_vValues,loc_vlist,loc_i -- weed out _used "s__tbk_" "s_tbk_" "sfts" -- declare 4" && -- KLUDGE -- need find array. loc_ss = val&"..." -- END nameFld = clearList w_wid we've somehow got invalid xisValidObject( --** X"TB40dlg.dll" listToTextLine ( bookref = = systemProps = systemTypes & "..." propertyList( buffer = info = propertyInfo( oldSys = vbxGetCustomPropertyString( r<> "ok" "ERROR accessing & "..." we've !cheader" -- kind {we've got obtype = -- widgets tbk_wid_name w_wid_Name = w_wid_type = tbk_wid_type & w_propValues( & w_propNames( & w_propListText( itm, ChooseDropObject ACK oList, onlist, revList v = targetWindow loc = mousePosition objectFromPoint( " && p = p > 0 nam = & ShortFileName( C) & onList ) > 1 INT popMenu(WORD, &windowHandle v,pageScroll v,loc, "published" -- along p_widget {pRef g! = " && & "..." *" <> S"propText = tbk_wid_values lst_widget f_systemProps f_systemTypes -- initialize menus AuthorMenuItemMissing itemAlias ss = ; se= menuItemEnabled( r& "" r= se AuthorMenuMissing ~, topmenu ss = ; se= menuEnabled( r& "" r= se _enterMenu menuName,menuAlias NeedToBuild = FALSE "tbk_tools" ("tbk_ScriptMenu", buildBaseToolMenu "indexing" ng("buildIndex") buildIndexMenu ng("tbk_DumpScripts") ng("tbk_centerHorz") ng("tbk_shrink") "spread" ng("tbk_spreadhorz") "tbk_HyperlinksMenu" ng("tbk_ShowHyperlinks") "tbk_Backdrop" ng("tbk_ChooseBackdrop") "tbk_text" ng("tbk_importText") "mm_media" ng("mm_MediaWidgets") buildAuthorSubMenu tbk_GetString(" "Property &Editor,customEdit,0, &CRLF&\ "Viewer/editor &pts>, ,0,tbk_Tools" & utilities" & "Pre&ferences...,tbk_startPref,0, "Set values SYSTEM _on startup." & "-,,0, "&Center>, "Centers the selected {(s)" & "Si&ze>, "Makes }a uniform "&Spread>, "Puts between }." & Tab &Order...,tbk_TabOrder,0, "Sets tabbing order "Add &3D Style...,tbk_3D,0, "Adds modifies 3D style rectangles fields." & "-,,0, creation auditing "&Backdrops>, a backdrop graphic current {." & "Me&dia working >,tbk_Text,0, "Inserts rich a file J." & "-,,0, "Path Ani&mation...,PathAnimation,0, "Creates path animations." & Pac&kager...,mediaPackager,0, "Packages clip & files." & "&Applications...,tbk_AddOnApps,0, "Runs specified MTB40.INI dummy = _AddAuthorMenuItem( Bi+1 csetup",\ scripts "&Find/Replace...,tbk_ReplaceScripts,0, "Performs replace on 8." & Handlers...,tbk_ShowHandlers,0, handlers hierarchy Setup",\ &Properties...,mm_WidgetProps,0, "Edits "&Import "&Export ...,tbk_exportText,0, "Exports "Between &Sides, G ,0, &Top Bottom,tbk_centerVert,0, "&Both Ways,tbk_centerBoth,0, Size "Shrin&k Smallest, "&Grow Largest,tbk_grow,0, "&Horizontally, "Distributes }based on S-most }." & "&Vertically,tbk_spreadvert,0, Vupper- /." & "&Hide ,tbk_HideShowBackdrop,0, "Shows hides {." & "&Remove Gtbk_RemoveBackdrop,0, "Deletes hyperlinks {." & Page Book ...,tbk_DumpHyperlinks,0, "Write report "&Check K...,tbk_CheckHyperlinks,0, -- "error" && menualias Bi+1 --CO Settings...,IndexSettings,0, options building a full- I...,BuildIndex,0, "Builds a "&Reader Level ReaderLevelSettings,0, level searching."& "-,,0, PageSettings,0, "-,,0, "&Object ObjectSettings,0, {.,"& "&Hotword HotwordSettings,0, edits a tag."& "-,,0, "Full &Search...,FullTextSearch,0, "&Keyword BKeywordSearch,0, . a keyword Bi+1 authorMenuFindExistingItem als, mnu, submnu ss = Y) - 1 menuPosition( menuItemPosition( , hlptxt --CO 950922 -- supports only 1 submenu fhelptext ctxt pos > 0 NULL cmnu csubmu _menuExists , menuOwnerAlias _alreadyOnMenu menuItemAlias, ShowDumpProgress captn, n1, n2, txt, manualClose SYSTEM s_cancel ("Hyperlink tbk_Container( A = TRUE (n1 = 0 n2 = 0) isOpen close FlushMessageQueue() objectFromPoint(mousePosition defaultPage n1,n2 progress "gauge" okbtn = B"OK" %modal _ShowHyperlinks LOCAL HLInfo myBk = v = "Generic u DB" DBpg = Inspector" v = DBPg ds_oCnt, s_ds_cnt pg = fN = s_ds_oCnt = 0 * = 0 = HyperlinkInfo (pg, " ", "short") oList = tbk_ObjectsWhere(pg,"",HasLinksFilter()) olist, "human", " Uarent pg,"", = NULL = tbk_GetString("No "No hyperlinks on txtFld = = tbk_trim( "title" = expandString(\ "), tbk_NameOrID(pg)) "tbk_HasHyperlinks( _CheckHyperlinks CheckHyperLinkOptions WalkHyperlinks " _DumpHyperlinks WalkHyperLinks " toDoWhat, Fn, fmt, repair, removePaths , s_tot_oCnt, s_tot_pgN, s_tot_pgCnt tot_Resynched, s_tot_pathResynched, s_tbk_dumpFile, s_tot_Resynched = 0 s_tot_PathResynched = 0 fN = linkDLL "TB40DLG. STRING saveAsDlg( ,INT) defName = shortFileName( defPath = pathOfFile( ~(".", p > 0 g".TXT" filterList = Text file","") && "(*.txt),*. prompt = SaveHyperlinkReportIn",\ report on ...") OtbkGetString("RecordBadHyperlinksIn",\ bad ...") It = fN = It fN <> s_ds_ocnt = 0 s_tot_ocnt = 0 bk = [bgList checkExprs = resynch = ( resynchPath = ( (fmt = prettyStr = PrettyFormat"," tabsepStr = TabSepData"," -separated data") SaveHyperlinkChooseFormat",\ f"&" & "&" & tabSepStr "&" & Cancel","") "dataTab" fN <> fN <> ToDoWhat s1 = 8%1") s1 = 8%1") ss = bk) & CRLF sep = ss = SaveHyperLinkFancyStr",\ %1Trigger Event%1Response event%1 6 Type%1"\ & "Dest. Book%1Transition%1Popup Style") ExpandString( DumpObjHyperlinks bk, fN, (windows obj = ", fN, pg = bg = bgID = itemOffset( ) < 1 g, fN, bg,"", , fN, pg, fN, , fN, fN <> ss = "<<" && INTERRUPTED") && ">>" fN --** INTERNATIONAL Z"), ) & ", " HyperlinkCount",\ "total %1 BadHyperlinkCount",\ L(s) found") , s_ds_Cnt) "array" fN <> fN <> ss = Complete") DumpingHyperlinkProgress",\ }" & & "%2 showDumpProgress CheckingHyperlinkProgress",\ Z" & & "%2 stat = s_tot_resynched > 0 resynchronized")\ y, 0,0, obj, formt, how hLInfo = GetHyperlinks( objName = expandObjName( n = 70 & charString("=",n) & -",n) & textlineCount( , s_ds_bad, " --** DumpingHyperlinkDataShort",\ }" & & "%2 CheckHyperlinkProgressCheck",\ Z" & & "%2 = GetBadHyperlinks( hlInfo = --** DEBUG n = 70 -",n) & fN <> ss = c, n s = p = ", s) p > 0 p - 1 " (p." && & ")" " (""" & & """)" = _asym_hyperlinks = HLDetail( , s_pathResynched, {[][] s_resynched = 0 D = 0 = HLBadDetail( Y> 0 [][] Hreference, badList = _tbk_BadLinksList ( badTag iRow = _tbk_HyperlinkIRow( HLRowDetail( [][] TestItem n = dimensions( ) > 10 HLTestItem = "R" [i][2] = , i, [][] HLType = [i][7] HLBook = [i][4] HLPage = [i][2] HLName = [i][1] <> " [i][6] c"popup" HLFx = HLSty = <> "<" <> "ID" xisType(DWORD, " && HL = 8" && --** "" [i][1] HL & [][] --** HCO 941012 stack badLinks maxCol = hyperLinks) [i][2] <> [i][2] <> "<" P--** EUPHEMISM pgRef = tbk_FindHyperPage ( [i][2], [i,3], [i][4]) P--** tbk_nameOrID( [i][2] [i][2] = [i][1] tbk_altPgName( [i][3] [i][3] = [i][1] thisBook = destBook = [i][4] <> [i][4] = s_PathResynched fpath = thisPath = tbk_CurrentDirectory() hyperPath = asym_hyperpath [i][4] <> [i][4] = -- ResynchPath [i][1] procedure, updates the settings file include stored )current books updateFile -- declare SYSTEM sftsSetFile ValidObs Contexts, sftsKeywords, sftsSections EBooks, sftsVRef, sftsMainBk, sftsHwtags pbooksLeft,bookCount LOCAL contexts,keywords,hwtags reference "dialog" tbk_bookRef() oldPageRef = defaultPage -- Fixed 8 Feb '95: complete path z so that 8doesn't moved. -- Old tempPageRef = pageStr = " " && ;) & " && ( = "Updating Settings oldRSB = readerStatusBar = TRUE updateStatus "Reading -- initialize -- these used throughout -- list sftsBooks = ftsGetIniVar("Options","includeBooks", 6NULL numLines = ","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available sftsContexts = contextLine = num = CREATE","KEYFIELDS", kfNum = kfieldData = VF"&(i+3), kfielddata named sections CONC_SECTION", sftsValidObs = " B,comboBox" non-existant clean = FALSE ftsFileExists( ) <= 0 %modal -- walk each ) > 0 nextBook "about scan &&"("& &&")" Scanning"&& ssm = sysSuspendMessages walkAllObjects ( Done." -- close -- These two handlers 8specified. -- How routine works: H walks every 8. Since aren't necessarily consecutive, -- checks has been j backgrounds array. If added -- sent walkObjects be walked. -- What's fuss recordFields? Hotwords recordfields , which lives on . The returned , however, hotwords. So whenever -- a passed adds found fone row , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their backID, \backIndex {curPage -- ] <> -- ftsInsertLine( -- kw = -- xappear -- -- we have previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] only -- a [][] LpMsg, stack tlist,objList recFieldCount {curObj objectToWalk = -- replace obRef = ) > 0 -- {owns other -- curObjType = = getObjectList( ) > 0 count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ we're enumerating +2] = \ we're ) > 0 ) > 0 ) > 0 ) > 0 = ftsTag ) = 0 ) > 0 -- puts status -- process tatusbar message isOpen statusbar -- returns a friendly obName obj nm = ob = procedure walks the books be included index removes settings xfound file. updateBooks -- declare SYSTEM sftsSetFile ValidObs Contexts, sftsKeywords, sftsSections ], sftsVRef, sftsMainBk, sftsHwtags mbooksLeft LOCAL contexts,keywords,hwtags reference "dialog" tbk_bookRef() oldPageRef defaultPage -- Fixed 8 Feb '95: complete path y so that doesn't moved. -- Old tempPageRef = pageStr = " " && ;) & " && ( = "Updating status bar oldRSB = readerStatusBar = TRUE -- initialize -- these used throughout updateStatus "Reading Settings" -- list sftsBooks = ftsGetIniVar("Options","includeBooks", 6NULL numLines = ","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available sftsContexts = contextLine = num = CREATE","KEYFIELDS", kfNum = kfieldData = VF"&(i+3), kfielddata named sections CONC_SECTION", sftsValidObs = " B,comboBox" non-existant ftsFileExists( ) <= 0 %modal ) > 0 nextBook Scanning"&& ssm = sysSuspendMessages walkAllObjects ( -- clean up Done." close -- These two handlers specified. -- How routine works: every 8. Since aren't necessarily consecutive, -- checks , ackground each has been stored V ackgrounds array. If added -- sent walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The returned , however, hotwords. So whenever -- a passed adds ubackgrounds fone row , like ?[i][1] H[i][2] R[i][n] ... JReference 1> ... < -- When comes enumerate living their backID, \backIndex {curPage -- xdefined, i <> ftsFindLine( ) = 0 kw = -- undefined (kw) kw) = 0 = kw -- -- we have previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] only -- a [][] LpMsg, stack tlist,objList recFieldCount {curObj objectToWalk = obRef = ) > 0 -- current {owns other -- curObjType = = getObjectList( ,FALSE) ) > 0 count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ we're enumerating +2] = \ we're ) > 0 ) = 0 ) > 0 -- we already looked ) > 0 ) > 0 ) = 0 = ftsTag 's tag ) = 0 ) > 0 ) = 0 -- puts -- process statusbar message isOpen -- returns a friendly obName obj nm = ob = -- This message sent clicked changed Hsetting -- tabMode. Put code handler, -- on tabPressed tabNum -- handles clicking on buttonclick -- test 9was Hchecking "obtype" userProperty -- each named " ", N being tabname -- Changes which 9folder front. It does Hmoving U"mask" -- Value zbetween 1 tabs value < 1 > tabLimit() "Cannot 9" && -- moves visually -- appear See sized below adiagram v + xpix(), -- stores a userproperty myTabMode -- sends notification -- The handlers resizing ,mode. -- -- Used %a constant. Returns -- Note: you wish more , follow procedure: -- Go duplicate one -- Rename that 9appropriately. ( instance would -- be Tab7", thirteenth # be "Tab13"). -- Set its behind function reflect pageUnits given n pixels. n = NULL sysPageUnitsPerPixel * n ypix n Rel * n -- returns currently selected -- sets up height units. tabHeight mytabheight handled myTabHeight tabSpace myTabSpace arrangeTabs numTabs valid parameter "Must have )least 1 "Can only 2" && && " -- cache {reference optimization. 9"&i) i <= D = FALSE -- hidden %they've xbeen -- receiving them # are "manual" = TRUE myNumTabs mynumtabs resized Notice -- methodSent: used differentiate =messages toolBook explicitly syssuspendmessages off toolbooks messaging, %we will be changing stuff. Without recursively -- calls itself over -- thing -- has a called -- -- 5,6 _________ 7,8 -- -- 3,4 | | 9,10 -- -- -- -- 1,2 |____________| 11,12 -- -- Here amap -- goal here maintain shape -- . (Otherwise gets stretchy.) Also, -- should be -- -- find how tall supposed -- tabRef -- tsection makes " corners -- Need be sure -- wide 4doing m"tabHighlight" B"tabLabel" ; () editor. -- rectangular -- body sysSuspendMessages -- -- following condition triggered %a whole -- -- -- , even though their sizes So we must notify -- can themselves. -- -- xarranged -- 9"&i) -- don't bother arranging -- mynumTabs -- assures aligned context spaced evenly. anchor "tab1" mytabspace where order xpos bp - b(ts,0) through remaining place -- 9"&i) -- -- now tbit masking others. bchecks x(e.g., just moved tname above "Choice" = c" = = keyEnter buttonClick B"ok" B"help" procedure walks through the books included index modifies their scripts allow level searches modifyBooks SYSTEM sftsSetFile LOCAL incBooks LOGICAL addMenus ( = ftsGetIniVar("Options","includeBooks", \ = NULL ) > 1 tbk_GetString("PromptFTSChangeBooks",\ "This ."&&\ Uthese must be edited.") 8."&&\ contStr = Continue") Cancel") oldSys = = FALSE bookRef = "Could xlocate" && handlerList = getHandlerList( "fullTextSearch" myHandler = getHandlerScript( "keywordSearch" "addIndexMenuItems" "removeIndexMenuItems" )ms") "enterApplication" numLines = textlineCount( ~ = " setHandlerScript( "leaveApplication" removeMenuItems" { = " linkDLL "fts40mtb.dll" STRING ftsSearch , WORD ) -- ftsIndexName a userProperty placed Tools sysBook builds indexName = Must create "You path = <> "\" pgRef = ,windowHandle -- reference may have had its removed -- insert current isObject( a valid was found... -- otherwise... expandString( Cannot navigate %1."), unlinkDLL " ll" Keyword ( <> "\" ftsSearchKeyword( -- %1."), oldSuspend -- store value can be restored Page available menuEnabled(" )Reader) -- menus are already present menuItemEnabled("Full = TRUE D ..." d ..." message sent the user clicks OK on -- "Create Search Index" dialog createIndex -- Prepare index generation -- declare SYSTEM sftsSetFile, sftsLogFile, sftsIndexHandle, indexName @sftsTextFlow, sftsValidObs, sftsExclude, sftsContextList |sftsTitleLoc, sftsContexts, sftsKeywords, sftsSections sftsBooks, sftsVRef, sftsMainBk, sftsHwtags, sftsErrorNotify booksLeft LOCAL ftsExcludeFile tbk_bookRef() oldPageRef ~ = defaultPage -- Fixed 8 Feb '95: complete path ref so that 8doesn't moved. -- Old tempPageRef = pageStr = " " && ;) & " && ( modifyMTB40ini -- error bwill be handled -- rather than = ftsGetErrornotify() ftsSetErrornotify( FALSE) -- store current setting readerStatusBar status bar oldRSB = TRUE -- initialize -- these used throughout creation process updateStatus "Reading Settings" location titles = ftsGetIniVar("Options","titleLoc", organization untitled sections = NULL -- list includeBooks", CREATE","CWDFILE", ftsFileExists( ) < 1 = stripExtension( )&".XCL" ftsSetIniVar(" Creating excluded gfile:"&&sftsExcludeFile contexts , initially -- be FIRST_CHAP", -- generate keyword -- lines keywords numLines = isType(DWORD, -- each kwLine = ","kw"&i, -- one global itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available -- contextLine = defined num = KEYFIELDS", kfNum = kfieldData = KF"&(i+3), kfielddata named ONC_SECTION", build ; = = = ns","includedObjects", -- exclusion rules j = ns"," logFile report errors )&".OUT" Opening existing files moving old ftsRemoveIndex( errorState "Removing Existing 3 Files" Initializing = ftsInitIndex( windowHandle -- walk asure they -- (stepping backwards removing change numbers haven't been Zyet) ) <= 0 creationLog "***Unable find 8"&& %modal ) > 0 nextBook ssm = sysSuspendMessages Scanning 7"&& Begin scanning"&& walkAllObjects ( ftsIndexName splitPath( -- Building ftsBuildIndex( Done." -- clean up _, etc. cleanUp -- These two handlers 8specified. -- How routine works: H walks every 8. Since aren't necessarily consecutive, -- checks a reference stored backgrounds array. If added walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The returned , however, hotwords. So whenever -- a passed adds found , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their backID, \backIndex {curPage -- can't be navigated -- skip (ftsIgnore (skipNavigation Excluding"&& -- associated ftsContextValue -- curContext = getContextNum( -- wasn't predefined, issue a warning ftsFindLine( ) = 0 &&"on"&& -- -- pgTitle = getTitle( -- -- kw = -- was kw) = 0 kw&& "on"&& -- ftsAddPage( cleanRef( ,kw,curcontext) Adding -- -- previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] -- a [][] TextAdded stack tlist,objList, rfList recFieldCount {curObj objectToWalk = -- replace obRef = ) > 0 -- {owns other -- curObjType = = getObjectList( ) > 0 /should be -- on obNum main count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ correct order additional addObjectText( we're enumerating +2] = \ ) > 0 ) > 0 hwtag = ftsTag ) = 0 known f:"&& ) > 0 {isn't covered above -- cases, indexed. Add continues accumulated sftsTextAdded <> ftsAddSectionsToPage( Failed -- puts n statusbar isOpen -- returns a friendly !form: obName obj nm = ob = expression textExp --++ --++ Removed 2/24 HCJC. Last on CRLF --++ InTEXT --++ --++ <> retVal = "richText --++ --++ --++ c"comboBox" " && &"&&"&"dropdownitems " && ftsAdditionalText pgRef contextNum = 1 contextName = -- already -- tot he ftsAddContext( -- names T# = -- writes a outStr ftsTitleOverride -- property ($ <> -- there -- obType = -- |% a titleRef = " {exists, isObject( -- otherwise -- function = ftsTitleValue() -- -- , instead ) removes a pageReference bkName = -- inform occured gracefully errMsg k&ftsGetErrorString( _, close viewers 'ds, ( <> "standard" assosciated xa valid type <> " )) <= 0 hidden <> " tmpObj = ftsExcludeValue -- ignore + <> *+) = 0 8+:"&& B+&&" ftsAddTextToSection( directly ( = "STSPATH" tempDir = ftsDosString(" 2sysToolBookDirectory ),"TMPDIR", +.INI") charSet = ,"CHARSET"," sry & " ) = "STSPARMS" ),"DFE",1," >%-- Sent Hstandard dialog handler, initializes the -- value[], required xused initDlg SYSTEM stbk_searchString,stbk_replaceString "findString" bref = B"ok" "Start" enabled -- sent user presses " lpMsg,stbk_vRef foundList,stbk_searchOnly, ,stbk_asWord,stbk_promptChange,stbk_firstFind canceled,stbk_searchRange,stbk_cnt q <> y-- already searching statusbar -- link needed DLL functions tbk_linkMemFuncs tbk_linkMessageFuncs _. Most these are replaceScript below sMode = searchmode throughout handlers stbk_canceled = B"matchword" = propValue combobox "range" -- allocate a block memory will be peek message -- has pressed stop running. stbk_lpMsg = tbk_getWinPointer(32) -- change "Stop" B"ok" "findstring" [stbk_foundList -- "SharedScripts "Page/ 8scripts" walkallobjects "This walkCurrentPage {hierarchy" walkHierarchy statusBar -- still up, = NULL focuswindow expandString(tbk_GetString("Could ""%1""."), = TRUE searchOb = nameOffset = ~("(", '-1) editScript LOCAL 1] = 2] = -- bring up chooser tbkToolsDlg( "foundScripts" tbk_bookRef(),\ Found close tbk_freeWinPointer( B"ok" Close iterates -- starting selected _tbk_linkedSysbooks --curSel = cursel = tbk_ObjectOfInterest() notifyObs notifyObjects sys = = FALSE curSysBook = ( (s_tbk_linkedSysbooks) shortFilename( -ks) = bgToo = (" oList = getObjectList( rfList = itemOffset( /,"", -- These two 8specified. -- How routine works: H walkAllObjects walks every 8. Since aren't necessarily consecutive, -- checks a reference each been stored backgrounds array. If added walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The list returned , however, does xinclude hotwords. So whenever -- a passed adds fone row , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their backID, \backIndex {curPage -- just -- -- we have previously -- dimensions( -- j -- -- so we don't visit ) + 1 -- -- objecttoWalk. -- On entry either a OBJECT stack tlist,objList {curObj = "sharedScripts curObjType = " objectToWalk windows resourceList("sharedscript", ) > 0 <> " -- updateStatus involves obRef tried process 20th k20 = 0 stbk_SearchOnly = checkForPendingStuff( ,focusWindow) B"ok" ) > 0 ) > 0 ) > 0 curScript = curScriptChanged = runningtotal = 1 totalChars = searchLen = replaceLen = Tthat serve gdelimiters: wordDelimit = " " & k& "-+*/<>,()[];^=&.?':" & -- remaining chunk, 's got txt = curOffset = -- startPos = ( endPos = ( 's a i- 1) o+ 1 -- changing Bcontaining display tstartPos = seekEnd = tEndPos = seekend-2+ initialization 1] = tendPos 2] = - tstartpos+1 3] = 2] + 4] = 5] = 6] = promptValue = "changePrompt" Replace?"), prompting says so "Yes -- insert "yes" -- ss = se = Saving %1."), %1."), ) && f"OK" <> "OK" 1= ss -- puts {being examined buttonRef = B"ok" xitem,xlist Hfolder widget tabPressed tabNum -- sets "instructions" "replacewith" what current searchMode "replaceWith" -- brings up editor, -- enters $ searched- , hits obj, searchText X"TB40WIN.DLL" sendkeys( }",0) keyenter returns a }clicked on keystrokes -- It clears them queue -- Parameters: a locked 32 bytes -- viewerRef whose [you want . If l= targetWindow wm_lButtonDown = 0x0201 wm_keyDown = 0x0100 pm_Remove = 1 -- mouse clicks ctbk_PeekMessage( ^!windowHandle ,pm_remove) <> 0 lparam = -- extract "low high x = k65536 y = y65536 u = clienttoPageUnits( objectFromPoint( -- ctbk_peekMessage( wparam = foundlist friendly nm = obj <> " " ("& &")" firstidle setDefButton -- defBtn B"defaultButton" ArrayEditEnabled OK = (tbk_GetIniVar("Options"," . Editing") = TRUE) -- doubleclicking on a allows you -- change the values property selected. SYSTEM stbk_curOb,stbk_propTypes, stbk_propValues, stbk_propNames @stomPropInfo, stbk_customPropFlag, stbk_customDlgShown LOCAL tl, curList, curType initString[] +dummy1D[], dummy2D[][] --lockScreen targetWindow = = NULL >= LINE tl = selectedtextlines tl = tl = 1 bookRef = tbk_bookRef() updateBrowser mode = "tabfolder" curVal = tbk_lastWin() <> "< <> "< propInfo = propertyInfo( .; -- settable? stbk_customPropInfo = getCustomPropertyInfo( propname) Fo = 0 = buildEnumList( qo = 1 = "VBXDIALOG" o = 2 = "ENUM LIST" = getCustomListProperty( = SPACE = "VBXPICT" ; -- gettable? = "< = "na" scrl = updateFlag = FALSE = "< c"user" uProp = c"widget" c"fontname" = "FONT" wType = wTypeList = "UNKNOWN,LOGICAL,STRING,WORD,STACK,RECT,POINT,DWORD,VALUE, ,RGB COLOR,HLS RESOURCE,INDENTS,SHORT,LONG,FLOAT,DOUBLE,SCRIPT" <> "UNBOUND" -- quserProp/ dialog box = "" ; -- up default ssc = S = hlstoRgb( fsize = fstyle = fface = = rgbstroke setupstring = _&","& &","& T&","& retval = chooseFontDlg(setupString,"") "regular" 4>" ; -- test = = "color" ; -- , use a colortype = DLG.DLL" colorPaletteDlg ( BYTE, X"TB40win. hlstorgb( colorType = "HLS" propval = = 0,0,0 retcolor = (windowhandle setProp " ; -- ) > 40 "..." = "sharedscript" ; -- resource chooseResource(" sharedScript " ; -- 's a , call function &"("& &")"&& " " && v <> showCustomPropertyDialog( shownBy openFileDlg( openDlg( filterList = "Bitmap (*.bmp),*. ,Icon (*.ico),*. ,Windows Metafile (*.wmf),*. pict = C a graphic...", ,vbxLoadPicture( = "icon" = "palette" bitmap, <,cursor" = "list" nextValue( found = (curlist) = "boolean" = "multiLine" ; -- otherwise, display/ = "na" "propEdit" tbk_wid_currentTab "TabFolder" 1] = sysVarValue( _edit2Darray( , "") "edit2DArray" _edit1Darray( "edit1DArray" CannotEditNDArray",\ only arrays"," 2] = 3] = isSysVar = 1] = leader = "@" && " " && 1] = arrayEditEnabled() cmd = " =" && && " " && =" && && " " && "Can 1])>32000 CannotEditOver32K",\ longer than 32000 2] = -- flag enabling disabling fields" 3] = " 3] = " txt = " doNotUpdate r<> " ecancelled" x"na" ) > 40 "..." r<> " href = curtype starts typing propGroup, where they're supposed tl = tl = ansitoChar( "abcdefghijklmnopqrstuvwxyz_0123456789" "tabFolder" = "na" fheader itm, lst, itmPos = itemOffset( s) + -- updates combobox/ updateHeader propValFld = propNamFld = tl = tl = tl = 1 |! = ! = "< " = "< "widgetproperties" " = "< systemTypes obj = C = 3 fo( e = 0 = 1 " = " = 2 " = " # = -# = ! = 3 B# = " Y# = |# = curProp ]$ = "< # <> "na") -- $ = " -$ = " J$ = $ = " k$ = " $ = " +1) % = " headerType % = " % = " -- enabled $ obj, &ListIndex, curListRange, curListString = propertyEnumString( curListIndex = propertyEnumInt( q = propertyEnumRange( <> "-" &&"-"&& () > 1000 spot1 = spot2 = minSpot = maxSpot = ","&j )) > 1000 =-- unlink the DLLs used removeLinks -- unlinkDLL "TB40win.dll" %dlg. 1KERNEL" >fts40mtb. OUSER" required initlinks SYSTEM sftsIndexingAvailable functions work finitialization files STRING ftsGetIniVar = getIniVar( WORD ftsSetIniVar = setIniVar( { management INT ftsFileExists = fileExists( $ ftsRemoveFile = removeFile( JCopyFile = copyFile( ftsDosString = getDosEnvironmentString( dialog related ChooseDirectoryDlg = chooseDirectoryDlg( OpenFileDlg = openFileDlg( ,INT) SaveAsDlg = saveAsDlg( FileListDlg = getFileListDlg( ListToTextline = listToTextline( TextlineToList = textlineToList( memort GlobalAlloc= ,DWORD) GlobalFree= ftsGlobalHandle= POINTER ftsGlobalLock= GlobalUnlock= oldSuspend = = FALSE full- indexing -- Author level ftsRemoveIndex ftsInitIndex LONG ftsAddContext ftsAddPage ftsAddTextToSection ftsAddSectionsToPage ftsBuildIndex -- Reader ftsOpenIndex ftsCloseIndex ftsTagEntries ftsNamedSections ftsTags ftsContextCount ftsContextTitle ftsAllContextTitles ftsQuery ftsReQuery ftsSetContextScope ftsAllMatchingTitles ftsAllMatchingRefs ftsMatchTitle ftsMatchRef ftsGetOffsets -- Error Handling ftsSetErrornotify ftsGetErrornotify ftsGetErrorNumber ftsGetErrorString -- DialogBox ftsSearch ftsSearchKeyword le = ( r= NULL) access Help ftsWinHelp= ftsWinHelpNum= a hyperlink ftsAddlink -- initialize be displayed tbk_bookRef() -- identify vwrRef = "standard" values Hyperlink Button" currentpage modally -- close isOpen ftsCreatelink "newHW" "Add Hotword" a selected ftsEditlink ftsModifylink s=selectedHotwords -- returns a locked nSize ftsGetWinPointer LOCAL memFlag = 66 #retValue -- allocate memory : = ftsGlobalAlloc( tbk_GetString("FailedMemAlloc",\ allocating retval = -- unlocks frees supplied. ftsFreeWinPointer pMem bitAnd 0x0000FFFF selector. ftsGlobalUnlock( "Memory error occured. Operation Aborted." ftsGlobalFree( entry textEntry dbCaption,dbPrompt,initVal,dType entryDlg = entryPg = "title" dataType retrieve entered Bhides Cancel Bcloses point user clicked OK Iancelled trailing tagEntry -- datatype identifies message handled Ha notifybefore handler -- a radio buttons on initType up a multiline multiEntry dbType validation: will xallow fcommas blank entries textlineCount( itemTxt = -- O) > 1 QUOTE -- ftsTextlineToList( checks itemnumber that itemNumber xitem,xlist settings associated given xassigned) getSetFile foVal MainBk asure we have a sftsMainBk = -- has taken place initLinks ensure infoDlg "","This 8must be saved action may be performed." -property filename setFile = ftsSetFile + exists... <) < 0 -- a default Hreplaing 8's extension -- f"SST" fileName = stripExtension( -- Settings Not Found xfound" sftsInfoVal = -- was chosen -- otherwise ) removes three letter without c = offSet(".", c <> 0 -- splitPath() separates a path Ipart scond actual ,fname cc= c = cc cc > 1 <> "\" c > 0 c < cc V(c+1) writes writeDefaultSST -- create defines global options generating a sectionName = "CREATE" ,"MANAGER","aapi", -- estimate textbase ( 1 unit = 256 bytes) r,"TXFSIZE",1000, -- location common wordFile = sysToolBookDirectory & "COMMWORD.TXT" 4) > 0 ,"CWDFILE", special treat ,"SPECIALS","", named be included concordance ,"TITLE_SECTION"," ,YES", -- names concordable psections ,"CONC_SECTION","", ,"NON_CONC_SECTION","", whether be concorded ,"DEFAULT_SECTION","OTHER, -- maximum paragraphs per ,"MAXP_PER_SECT",500, contexts ,"MAXCHP",65534, articles ,"MAXART",65534, ,"MAXPAR",65534, ,"MAXWRD",65534, -- total keyfields (minimum 2) ,"KEYFIELDS",3, -- compulsory ,"KF1","#HANDLE C", ,"KF2","#ARTREF A", ,"KF3","#KEYWORD C", ,"FIRST_CHAP"," books /"("Options","includeBooks", {types incOptions = " OdObjects", -- excluded ","", continues through textFlow","TRUE", -- keywords #("Keywords","Lines",0, 9#("Contexts"," -- build 3 based on ftsCreateIndex $le <> 2","The engine xavailable sftsSetFile = ) < 0 -- "main" ftsSearchIndex %le <> Full searching indexName = ftsIndexName pgRef = Q,windowHandle bkName = -- insert reference isObject( "Cannot navigate ","You 4searches ftsKwSearch d'le <> ftsIndexSettings ) < 0 stepBack = " ftsReaderSettings ) < 0 x%Level ftsPageSettings ) < 0 ftsHWSet valName ) < 0 -- determine currently s = selHW = -- disallow multiple hotwords 6) > 1 ","Multiple / are !. Please only -- ) = 1 flags -- initializePage -- -- what comboBox "choice" NoneBrackets","[ -- should be created... hotwordstyle -- pops up ftsObjectSet ) < 0 -- selOb = obJect -- xcanceld -- secName = -- ftsSection -- ftsExclude 2wait openWaitDlg ",dbMsg "msg" -dlg" closeWaitDlg -- use inserting a single U. Will maintain sorted order. No duplicates ftsInsertLine txt,newLine ending %insertSpot midPoint middleLine looking * less than X* greater already > tlc removing a ftsRemoveLine matching ftsFindLine num = -- calls winHelp p8specified callWinHelp contextName [contextNum % = "MM_CMD_Build_Index" R = "MM_CMD_Hotword_Settings" = "MM_CMD_Index_Settings" = "MM_CMD_Object_Settings" -- = 62603 = "MM_CMD_Page_Settings" -- = 62606 = "MM_CMD_Reader_Level_Settings" = "MM_CMD_Search_Settings_Not_Found" = 62612 = "MM_CMD_New_Context" = 62618 = 62594 = "MM_CMD_New_Section" = 62620 = 62596 = "MM_CMD_New_Tag" = 62622 = "MM_CMD_New_Keywords" -- ,"MTB40.HLP",257, -- -- bring up help doHelp ,Message infoPg = -- resize msgField = dbMessage maxSize = "frame" - 180 `> 0 centerLine = 90 + ( ) / 2 currentPage Copyright 1993,1994,1995, 1996 Asymetrix Corporation gives you permission e, revise, reuse the individual scripts your own applications. You may J entire substantial part redistribution b product. retains copyright on original elements . Include notice "Portions are contain copied Authors: 4.0 Version - Mike Florence Joseph Brick Jim Geldmacher (indexing -- hyperlinking) Jeff Ayars (path animation) y (media widgets) Tim Pearson ( packager) Claude Ostyn (misc. CBT edition deletions additions) Last revision: 1/9/96 Standard ToolBook messages -- initialize sysbook unlinksysbook SYSTEM s_tbk_linkedSysbooks 1ks = se = sen = sysErrorNumber ss = c"tbk_tools" 1= ss removeLinks "ftsScripts" CheckToolsMenu cexists; -- Note: menuitems added enterMenu. ss = errornumber se = menuEnabled(" cisn't there: &ls" alias " fhelpText "Custom authoring MTB40.SBK" c"&Index" create Full- Search Indexes" menuItemEnabled("tbk_sysInfo" e"S&ystem %..." Displays information about 1= ss syserrornumber = sen linkSysbook sysBook one getting -- bookloc=sysBookLoc( > 0 bookCnt <> bookLoc > 0 "The 8cannot be used runtime. " &CRLF& "Use" && QUOTE & "Remove Extension" & extensions -- load startup options: tbk_setStartup tbk_linkMessageFuncs tbk_linkNewFuncs -- sent rightClick custom clicked Property Editor chosen called obj parameter will d on: customEdit yforces full refresh tbk_lastWinSize, stbk_curOb, stbk_curMode, stbk_cursor LOCAL {winRef,browser sysRuntime = TRUE know sizing needed. stbk_lastWinSize = 0,0 selectionChanged -- optimization: cache {reference browserPg = <> NULL tbk_container(obj," 8") = tbk_linkConvert myIsOpen IT <> IT <> "Only instance can be -- turn on wait ss = oldCursor = 1 parentHandle -- came inspectType "currentobject" wasRightClick updateBrowser checkSelection -- c, close , so lockScreen activeWindowHandle = windowHandle = obj objType = trueValue comboBox " interest" selectedTextlines "propValue" propValues, stbk_propNames [stbk_curObj [stbk_propValues saveAs "Handler updateSelf currentPage closeWindow tbk_currOb [stbk_currOb tbk_reset changed ,-mode ><> " targetWindow = xalwaysReader oldActive = pg = -- = pg isOpen activating activateInstance a different enterWindow lastWindow tbk_lastActiveWindow, stbk_previousActiveWindow stbk_lastActiveWindow = propBrowser = focusWindow %notActive vList = "mm_MediaWidgets" enabled = FALSE sends sized -- This handles realigning 3D rectangles ( anim_idleAnimations newPos, settingsTable[][] threeDeeRect doThreeDee stuff" -- traps moved repositions -- user has coordinate "anim_animationSettings" s_anim_idleAnimations ss = "anim_edit" dimensions( ) <> anim_startPosition(1) dx = dy = i][13] anim_StartPosition(i) + dx, 8(i) . If been . (Waiting -- entermenu build menus saves on 'menuname,aliasName ftsMainBk, oldSys = sftsMainBk = whatWin = sel = = "combobox" selHW = selectedHotwords selT = _entermenu menuName, cmanager" initLinks disable e"ObjectSettings" e"HotwordSettings" e"FullTextSearch" e"KeywordSearch" ) = 1 nothing -- -- -- we've loaded -- ss = -- -- -- k_tabOrder" -- 1= ss -- loadMenus "Extra -- -- -- a known state: -- c"Center" c"Spread" e"tbk_tabOrder" "tbk_3D" "property (sel) >= 1 c"OLE " e"tbk_taborder" = ss--** "tbk_text" "tbk_importText" "tbk_exportText" "tbk_Backdrop" bkDrop = isObject(" Bbackdrop txt1 = "&Add V..." "tbk_HideShowBackdrop" "tbk_RemoveBackdrop" backdropObj = SetMenuItemName(" op", Ktbk_ChooseBackdrop", "tbk_HyperlinksMenu" = tbk_hasHyperLinks( S..." f..." "mm_media" mmWidget mm_WidgetProps "mm_mediaWidgets" handers ! 6/94 mediaPackager stbk_thisBook msgBox(" 8must be saved .","Stop") "clipPkg" tbkToolsDlg( ,tbk_GetString(" -- brings up startUp preferences dialog box tbk_startPref skip pg = Options" bg = readini bg = captn = Preferences") getToolBookIniItem(" y) <> SysStr = System") IniStr = E File ","INI PromptLoadPrefFrom",\ f"&" & "&" & Cancel") OK = readIni bg = ( MTBCBT","Multimedia !4.0") & ": " Applications tbk_AddOnApps -- exports "extra --imports a file -- calls up replace tbk_replaceScripts value[] a required searchAndReplace Find tbk_sysinfo sysToolBookDirectory & " ?.exe" CannotFindSysInfo",\ find SYSINFO.EXE $directory.") Drawing aids: -- spreads }horizontally tbk_spreadHorz }vertically tbk_spreadVert -- shrinks g&smallest tbk_shrink shrinkgrow " -- grows &boggest tbk_grow Plargest" }between sides tbk_centerHorz O"horz" tbk_centerVert tbk_centerBoth adding 3D style 'tbkToolsdlg handler. y&[],sel already a 3D , actually) '[1] = 3'[2] = D'[3] = useWindowsColors .$ on type wants retval = Set 3D Style"), ecancelled" -- extrascript !sel,lowestlayer !sortobjects[][] obRef = 2 MustSelect2Objects",\ more ([1] = -- -- F returns two values: -- fwhich +tabbing; tells -- us 'way autotab: startlayer = horzOrVert = -- sending array containing -- sorted either sortbyposition ls = i-1][ (handlers functions HlinkSysBook. Sets section ,toolbook.ini. ,itemName,defaultVal tbk_linkIniFileFuncs getIniVar( :tbk_iniFile()) DLL h'following linkDLL statements -grouped windows memory tbk_linkMemFuncs "tb40win.dll" POINTER tbk_getWinPointer = getMemBlock (DWORD) tbk_freeWinPointer = freeMemBlock ( dealing fconversion "TB40Dlg. STRING tbk_listToTextline= files: "TB40win. SetIniVar( INT tbk_SetIniInfo = . dll's fdrawing tbk_linkDrawFuncs "gdi" tbk_moveto= tbk_lineto= tbk_setRop2=setROP2( tbk_createPen= tbk_deleteObject= tbk_selectobject= tbk_getDC= tbk_releaseDC= / passing tbk_peekMessage= tbk_registerWindowMessage = tbk_postMessage= TextToPrinter = "tb40dlg. ItemOffset = itemOffset( ItemContains = itemContains( TextlineOffset( TextlineContains( -- sets Toolbook.ini setToolBookIniItem ,itm, -- Used ethat was browsing) englishName = 2"friendly" V!ow = c!ow r!ow = !ow = " && !ow & -- otherwise "-&& , but useful benchmarking startTime s_tbk_start = a_timeGetTime() endTime //throughout 8needs itself. tbk_bookRef a locked ftsGetWinPointer tbk_GetWinPointer( -- unlocks frees supplied. ftsFreeWinPointer pMem tbk_FreeWinPointer( a generic Pass display initialization (Required.) pageRef,captionString, .retVal i = 0 unused vRef = "&i) Z i = 3 vref = CantNest4Dlgs",\ 't nest than 3 dialogs!") -- store defaultpage pageref -- Fixed 8 Feb '95: complete 8doesn't pageStr = " " && " && ( don't fw = -- -- holding interface $initDlg -- 9returnString User -- : code execution stops -- dismissed parentWindow %modal Ycontinues hidden closed. -- still 1%pressed OK r= "ok" -- -- stub filename without shortFileName fn U(fn) Vi + 1 U(fn) pathOfFile fn U(fn) -- finds ;location 5 bookname,booklist testName )= bookName sysversion c" MM" a8INI" q8ini" enterApplication -- ; DLLs -- sftsSetFile identifies associated cleared whenever ftsSbk -- pops up a entry textEntry dbCaption,dbPrompt,initVal,dType tagEntry multiline multiEntry ,dbType checks itemNumber xitem,xlist tbk_itemOffset( fa specified getSetFile -- stripExtension() removes * letter ; fileName -- splitPath() takes a -- creates a writeDefaultSST setFile BuildIndex ftsCreateIndex ftsSearchIndex -- perform a keyword ftsKwSearch IndexSettings ftsIndexSettings level ReaderLevelSettings ftsReaderSettings ApageSettings PageSettings ftsPageSettings ftsHWSet ftsObjectSet openWaitDlg ,dbMsg closeWaitDlg inserting a single U. Will maintain &. No duplicates ftsInsertLine txt,newLine removing a ftsRemoveLine matching ftsFindLine winHelp context callWinHelp contextName PathAnimation _pathAnimation checkPathAnimLimits /ngs[] secs = s_anim_animationSettings[8] fps = bytes = 8 bnds = 4 ) < 6 B Utilities isValidObject obj ss = r= ose tbk_DumpScripts Dumper" tbk_ShowHandlers %HandlersBookNameRequired",\ unless pg = defaultPage v = pg tgtWin = tgtWindow pg = tbk_SortScript obj tbk_Container ?nextObj wCnt = 4@= "BOOK" WCnt "groupfieldrecordfieldpagebackgroundbook" p = &<, obj) p > 0 Vp+4 =*<> (Obj) isNumber x isType(" 4",x) tbk_isNumber x 4",x) tbk_WinHelp h1, whatFile ,$y & " EHLP" tbk_WinHelpByNumber = tbk_WinHelpByKey = = 0 -- Contents flags = 3 ,0x0105, ))CannotStartHelp",\ xbe started. Please ~?some -- WIDGETS showWidgetsProps B focuswindow Iwid_targetObject, s_wid_targetWindow s_wid_targetObject = = obj S = targetwindow myWin = "mm_MediaDialog" -- Other Stuff tbk_CheckHyperlinks _ImportBackdrop tbk_DumpHyperlinks tbk_HyperLinkDB linkArray[][] D, triggerName, linkType, objName, triggerText Properties DB" tbk_hyperlinks E= tbk_ObjectOfInterest() _HyperlinkProperties tbk_LockMove (_tbk_LockMove e6 = tbk_PageHyperlinks tbk_ShowHyperlinks ) = 1 -- _argList = tbk_objectOfInterest() s _arglist ss = ss = bmp = normalGraphic ss = sharedScript wasOnBackground = onBackground sysSuspendMessages = yesStr = a/Yes","") r/OKToDeleteBackdropResource",\ {seems Pbitmap resource"\ Qdeleted {. OK E?")\ f"&" & B","&No") y bmp ss = 0 {. OK f"&" & B","&No") _tbk_HyperlinkCandidates UI candidates[] "_asym_hyperlinks" Tn] = _tbk_HyperlinkIRow l$ linkName, g[][] n = [i][1] = _tbk_AddHyperlinkToArray [][] pgRef, transFx, -- Called n = i = i = 0 i = n+1 [i][1] = _tbk_AddLinkToArray( , i, "Hyperlinking" _tbk_BadLinksList [][] ZLstack badLinks >hyperLinks) [i][2] <> [i][2] <> "<" tbk_FindHyperPage ( J[i][2], [i,3], [i][4]) = [i][1] _tbk_ClearHyperlink [][] support ;kFromArray( "HyperLinking" pgName, altPgName, bk Mlogical ss destbk O' refString pg = "<" -- bk = ss = bk <> bk = 8) & bk) bk = tbk_FindPathFile(bk, asym_hyperpath bk = "ID" " && " && -- "ID" ) = 2 AltPgName) _tbk_HyperlinkLinkInfo [][] resolv i = i = 0 [i][2] & [i][3]) = [i][2] "<" -- l <> [i][3], [i][4]) [i][3], [i][4]) [i][5], [i][6], [i][7], [i][8], [i][9] "OK", [i][3], [i][4] "BAD", [i][2], [i][3], [i][4] tbk_AltPgName title pgCaption "ID" && tbk_CheckObjectHyperlinks tbk_HasHyperlinks( tbk_CurrentDirectory X"TB40DOS. F. GetCurrentDrive() ^. GetCurrentDirectory( drv = dir = "\" & <> "\" =& ":" & tbk_CurrentPath tbk_DoHyperlink _tbk_ExecHyperlink ( tbk_FindPage pgN ss = tbk_GetHyperlinks ss = 70 result, bkPath, hyperPath bk = bk = bk <> bk = bk <> = _asym_hyperpath tbk_Trim( ) > 0 _SetHyperPath tbk_IsFile fName FileExists( 2"TB40dos. tbk_NameOrID obj "ID" && tbk_ShowProgress n, maxN, progress tbk_ShowProgressWithText tbk_ObjectsWhere ownerObj, objTypes, express YSTACK r objs = ss = v = tbk_trim s cs <> s <= SPACE cs <> s <= tbk_IsDirectory dirspec GetFileAttributes( ("D" tbk_RelativePath b, bkName b) = 1 tbk_OpenEndedProgress txt ended tbk_resetCursor rootPath "c:\" thisPath "c:\x\" -- BOTH MUST END WITH "\"!!! tbk_MakeIntoRelPath U,longPath X\relPath ) = 1 p1 = 1;p2 = p1 cp2 < p2 > 0 dirlen = p2 - p1 p2 - 1 = ".." p2 = p2 - p1 = p2 tbk_Ellipsize s, s = cCnt = dotss = "..." dotCnt = 3 p1 = ~("\", s) p1 > 0 ? = " + 1) ~("\", s) p > 0 dotsL = ( U(s))+1 * 2 / 3) p = 0 p = 1 U(s) + Vi - Vi - U(s) <= len U(s) + U(s) / 2) U(s) U(s))+1 + 4) - 3) / 2 + 0.1) s1 = U(s1) + 1 + p > len s = s1 & tbk_ExpandRelPath dotpath, p = revOffset ("..", dotPath) cp > 0 p2 = K("\", p2 = 0 -- bad! p + 1 Vp2 + 1 Vp2 + 1 p = tbk_PopupWinComboValues "shadowAutoClose,Shadowed ( c)" & "manual _)" & "thickFrame, frame)" & "thinFrame, "dialogframe, DOSPath = c":\" I= GetDosEnvironmentString( JPATH") p = ~("=", p > 0 p = ~(";", cp <> 0 k= "," p = ~(";", = "" <> "\" <> ":" tbk_setCurrentDirectory whatPath *?SetCurrentDrive( R?SetCurrentDirectory( setCurrentDrive( tbk_ScrollListBoxToSelection selectedTextLines n = (textRightOverflow b(0, - (1 + n objectAnimation rowNum ss = Q = 1 i][1] <> t+i] = +14] = --** THIS GROSS HACK TO DETERMINE WHETHER IN A HOTWORD selectedTextState <> GetCaretPos( lpPt = pos = PointerInt(2, ?(clientToPageUnits( p1 = txt = 0) + 2) p2 = p1 p1 > 0 hws = textOffset p1 >= p2 < bk= hw 4+ > 1 s1, s2 L = U(s1) - 1 U(s2) i + L R strgName, strgDflt Zstrgs[][] bk = bk = se = ss = U = _tbk_StringArray r= se i][1] = i][2] r= se s = s = tbk_IsWin95 sysOperatingSystem c"3.9" v7n7n7 WM_LBUTTONDOWN hWnd, Msg, wp, x, y SYSTEM s_anim_PathObject, s_anim_selectedVertex, s_anim_dragging, s_anim_CurrentObject, s_anim_selectedTool jdy, s_anim_dx, s_anim_animationSettings[], s_anim_idleAnimations focusWindow = "anim_edit" . <> stopAnimation "aborted", mousePos = clientToPageUnits( theTarget = objectFromPoint( "selectionHandles"))) -- they clicked on path, a {itself, message ssm = sysSuspendMessages = TRUE lockScreen a vertice 2] too verticeCount addVertice( WHITE BLACK moveTarget vertexPosition( e= FALSE = ssm onBackground whatLayer = " && QUOTE & &TAB& combobox " "SelectObject" selectChange "selectObject" %modal do_buttonDown , isShift, isControl, Pathdx, s_anim_Pathdy, s_anim_Objectdx, s_anim_Objectdy LOCAL newVertice, bRemovedVertice changeSelectedVertex = 2]) > 2 2] = removeVertice( "Deleting one Jtwo awill create a Editing a same %creating a Honly reuses allocated instead allocating Do you want delete f"&OK" "&Cancel" = "OK" clearAnimation B") ) 2] too be off --so correct ex >= "BottomBar" buttonClick 5 <> " s_anim_Pathdx -- update current Bhilighted r= -1 error sizeTarget --** qhack 30a, I don't seem be getting something asure -- updates correctly. do_endDrag has changed do_dragging --moves lines = -1 , s_anim_dy, s_anim_segLengthList, hypotenuseFromVertices( /"compiler" [s_anim_pathdy ex = 1 ex = showHandles "SelectionHandles" do_curveVertice that 's valid a curved one previousLine nextLine xlastCurve xfirstCurve beside another } so oldCursor = xmiddleCurve - 1) + 1) newCurveID = drawCurve( -1), -1), ) + 1 - 1) + 1) objectColor( "This can't become a ."&&\ "A existing do_keyDown stepSize = 10 -- sysPageUnitsPerPixel * -- el * keyDownArrow -- -- -- -- -- -- -- s_anim_SelectedVertex) 2]) > 2 LockScreen 2] = ex < 1 f"&OK" = "OK" ex = 1 ) + 1 "bottomBar" pathObject based on given moveVertex verticeNumber, newPosition, OBJECT l) -- compensates width l) -- height + 1) - 1) , dx, dy, currentObject -- tempPos CurveTopVertice( -- 's a regular !-dx, -" = 1 7" = 2"dy, t) > 0 " > 1 sizePercent = " - 1 xGrowBy = (( "15] + ( "16] - "15]) * o) - )DIV 2 yGrowBy = (( "15] + ( "16] - #15]) * 5#15]) - [#15]) - <> 0 currentOBject drawHandle x, y, curvedVertices, (x - 3* l),(y - 3* (x + 3* l),(y + 3* > 1) > 1 color ellipses excludeTab drawDirect drawLine fstPt, sndPt, i " (e.g. vertext i-1) fill midPt, lstPt, i -- 's a U(i - 1)) "CurveColor" U(i)) !ObjectList, oldLineID, oldRectangleID %SysSuspendMessages O!reference -- @ - 1) newLineID = -- -- newRectangleID = "old property xanymore + 1) (CurvedVertices) - 1) - 2) + 1 m(i) --there adding + 1 - 1) ) + 1 ) = ssm ,&removeRectangleID, removeLineID f* = --removing a - 1) + 1) - 1) -- also either = 1) + 1) + 2) + 1) + 1) + 1) - 1) - 1) deleting + 1) -- just a - 1) - 1) - 1) + 1) -- + 1) - 1) - 1) -- fno curves envolved + 1) - 1) --re- ) - 1 B(i+1) U(i+1) m(i+1) B(i+1) special -1) - 2) - 1) - 2) - 1) -- deleted Uso no re-numbering necessary. = ssm value "curveColor" ghostColor LIGHTGRAY StrokeColor -- gets a -- used being editPath theVertices .Ax,Ay,Bx,Bye,Cx,Cy ((Ax y4) + (Bx y2) + (Cx ((Ay y4) + ( y2) + (Cy -- clears 05 information ClearAnimation l5i] = ~515] = 516] = ss = dimensions( 5ngs) isn't objectAnimation reset D:\ARNOLD\2.ANX Scene 1 D:\ARNOLD\2.ANX :\ARNOLD\1.ANX Scene 1 D:\ARNOLD\1.ANX :\ARNOLD\1.ANX Scene 1 D:\ARNOLD\1.ANX :\ARNOLD\1.ANX Scene 1 D:\ARNOLD\1.ANX D:\FLOW.ANX D:\FLOW.ANX :\ARNOLD\1.ANX Scene 1 D:\ARNOLD\1.ANX :\ARNOLD\1.ANX Scene 1 D:\ARNOLD\1.ANX arnold.avi g.avi default button default button 2 tbk_mediaPlayer tbk_backdrop slider popup viewer author skrefFocus refBtn keyDown Cancel cancelBtn defBtn tbk_IsWin95 skrefFocus enterPage skrefFocus setDefButton refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 orefBtn enabled buttonClick orefFocus ocancelBtn = B"Cancel" odefBtn = B"OK" tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y author wordwrap field refBtn keyDown Cancel >tbk_Container cancelBtn defBtn tbk_IsWin95 skrefFocus enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 fieldType "wordwrap" orefBtn buttonClick ocancelBtn = B"Cancel" tbk_Container( odefBtn = B"OK" orefFocus tbk_IsWin95() u= "pushbutton" setDefButton btn = NULL xenabled OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y enterpage moved tbk_reset buttonDown buttonUp buttonClick buttonDoubleClick rightButtonDown rightButtonUp rightButtonClick rightButtonClick rightButtonDoubleClick -- This was added your Hthe MTB40.SBK sysbook -- It used define 'behavior backdrops notifybefore "0,0" "0,0" moved ssm = sysSuspendMessages notifyBefore tbk_reset buttonClick rightButtonClick ,&H.& sliderline thumb button parentBounds sliderBounds hasSlider myObjs slider whatStage adjustcontrols adjustcontrols ssm = syssuspendmessages e= TRUE yPix = sysPageUnitsPerPixel buttonSize = 25* syspageunitsperpixel parentBounds = whatStage() myObjs = numberButtons = 0 obj = hasSlider oldb "slider" sliderBounds = 9+ 5 * f- 5 * "sliderline" + 7 * - 7 * sized B"thumb" moved e= FALSE = ssm myViewerRef ,3clipRef closeClip myViewerRef ,3clipRef pauseClip myViewerRef ,3clipRef stopClip myClip myViewerRef ,3clipRef whatStage showClip myViewerRef ,3clipRef Z>isReady seekClip myViewerRef ,3clipRef Z>isReady seekClipFromEnd myClip stepSize myViewerRef ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize myViewerRef ,3clipRef m{stepDist Z>isReady stepClipBack FALSE playingpausedstopped isReady myClip ,3clipRef setMySize newClip objRef myViewerRef mmwidget_controls adjustControls stretchStage whatStage stageObj checkStageSize mediaSizing whatStage setMySize mediaSizing myStage stretchStage ,3clipRef whatStage setMySize stage whatStage CLOSED myStage myClip ,3clipRef setClipControls whatStage closeClip myViewerRef() (clipRef ) <> NULL mmClose notify ( mmYield pauseClip ) <> mmPause stopClip ) <> mmRewind showClip myClip = ( mmPlayable mmShow whatStage() seekClip argPos isReady( mmSeek / wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) whatClip mmStatus "playingpausedstopped" FALSE newClip chooseResource( setMySize LOCAL OBJECT pgRef objRef = <> "PAGE" vRef = shownBy checkStageSize stageObj = stageSizing stretchStage "mmwidget_controls" adjustControls mediaSizing value myStage = mediaSize .mmVisualSize sized getObjectList( notifyBefore <> "CLOSED" preEffect postEffect setClipControls fo_LastSaved :HDMEDIAPATH G:\media\avi\ System MS Sans Serif MS Sans Serif MS sans serif System MS Sans Serif MS Sans Serif Arial Arial MS Sans Serif G:\media\avi\ H:\media\avi\ :37 AM MS Sans Serif Arial Rounded MT Bold MS Sans Serif MS SansSerif Arial System Serif Courier New Wingdings Arial info_LastSavedBy Arial Arial Arial :SHOWCONFIRM Mike Florence :CDMEDIAPATH G:\media\avi\ G:\media\avi\ H:\media\avi\ Mike Florence Buccaneer systemTypes systemProps 12/7/95 8:48:09 AM Mike Florence 95 10:32:34 AM info_LastSaved Mike Florence boolean boolean boolean list,english,metric boolean list,left,right,justify,center boolean boolean boolean color,hls font,text font,text font,text boolean boolean boolean boolean list,1,1.5,2 list,none,1,2,3,4,6,8,dotted,dashed boolean boolean list,none,solidfill,solidstroke,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128 boolean color,rgb color,rgb boolean boolean boolean boolean color,hls boolean boolean list,left,decimal list,arc,angledLine,borderlessField,button,checkBox,checkBox3D,comboBox,curve,ellipse,field,irregularPolygon,labelButton,line,magnify,ole,polygon,pie,radioButton,radioButton3D,recordField,rectangle,roundedRectangle,select,singleSelectListBox,stage boolean boolean activeWindowHandle caretLocation focus focusWindow mainWindow selectedText selectedTextState selection startup3DInterface startupAutoScriptFile startupBook startupDrawDirect startupHeight startupReaderRightClick startupSysBooks startupUnits startupWidth sys3DInterface sysAlignment sysAutoScriptFile sysBooks sysCentered sysChangesDB sysClientHandle sysCountry sysCurrency sysCursor sysDate sysDateFormat sysDecimal sysDrawDirect sysError sysErrorNumber sysEvening sysFillColor sysFontFace sysFontSize sysFontStyle sysGrid sysGridSnap sysGridSpacing sysHistory sysHistoryRecord sysHotwordsShown sysICountry sysICurrDigits sysICurrency sysIDate sysIDigits sysILZero sysIMeasure sysIndents sysINegCurr sysITime sysITLZero sysLanguage sysLevel sysLineEndSize sysLineEndStyle sysLineSpacing sysLineStyle sysLinkedDlls sysList sysLockScreen sysLongDate sysMediaBreakKey sysMediaSuspend sysMMEngineVersion sysMorning sysMousePosition sysNumberFormat sysOpenMedia sysOpenWindows sysOperatingSystem sysOptimizedSave sysPageScroll sysPageUnitsPerPixel sysPasswords sysPattern sysPolygonShape sysReaderRightClick sysRGBFill sysRGBStroke sysRuler sysRuntime sysSafePaletteManager sysSendToolbookMessages sysShortDate sysShowMRUfiles sysStrokeColor sysSupportedMedia sysSuspend sysSuspendMessages sysTabType sysTabSpacing sysThousand sysTime sysTimeChar sysTimeFormat sysTool sysTransparent sysUnits sysUseWindowsColors sysVersion sysWindowHandle target targetWindow Popup Window Sample mm_AnimDialog Animation Player Properties page "mm_AnimProps" rrentObj group id 30 of page id 0 of Book "D:\ARNOLD\SAMPLES\SAMPLE6.TBK" rrentWin rrentStage stage id 6 of page id 0 mm_AnimImager page "mm_firstAnimWidget" mm_AnimWidgets Animation Players page "mm_AnimWidgets" mm_AnimImager whatWin windowshown windowshown whatWin = "mm_AnimImager" enabled 0FALSE Do not rename me 7 Popup Window Sample s_tbk_popViewers mqtbk_itemOffset closeWindow closeWindow 4s_tbk_popViewers tbk_itemOffset( YM_TempViewer YM_CloseOnEsc k_TempViewer k_CloseOnEsc Do not rename me 6 Popup Window Sample ge id 10 of Book "D:\MTB40\MTB40.SBK" ge id 14 of Book "D:\MTB40\MTB40.SBK" k_TempViewer k_CloseOnEsc ge id 15 of Book "D:\MTB40\MTB40.SBK" closeWindow 4s_ctb30r_PopViewers ASYM_itemOffset( YM_TempViewer YM_CloseOnEsc Reusable Glossary Popup ge id 0 Link To Page... Page "Link Page Browser" Hyperlink Add Backdrop Reusable Glossary Popup Array _asym_hyperlinks updateSelf shown shown updateSelf currentPage Kge "clipPkg" dia Packager t timer messages going the dialog Popup Window Sample s_ctb30r_PopViewers ASYM_itemOffset closeWindow closeWindow 4s_ctb30r_PopViewers ASYM_itemOffset( YM_TempViewer YM_CloseOnEsc ge id 10 of Book "D:\MTB40\MTB40.SBK" k_TempViewer Popup Window Sample k_CloseOnEsc Popup Window Sample s_ctb30r_PopViewers ASYM_itemOffset closeWindow closeWindow 4s_ctb30r_PopViewers ASYM_itemOffset( YM_TempViewer YM_CloseOnEsc Do not rename me 4 D:ge id 4 of Book "G:\FRANKJR\SPCLST\FOOBAR.TBK" Popup Window Sample s_ctb30r_PopViewers ASYM_itemOffset closeWindow closeWindow 4s_ctb30r_PopViewers ASYM_itemOffset( YM_TempViewer YM_CloseOnEsc Do not rename me 3 D:ge id 4 of Book "G:\FRANKJR\SPCLST\FOOBAR.TBK" Popup Window Sample eferences t 3D Style in,ms in,ms ge "ThreeDee" turnstring ge "ThreeDee" in,ms eck Complete Dumping Book Scripts turnString Check Complete ge id 24 of Book "G:\FRANKJR\CTB30A.SBK" Hyperlink Properties DB Link Page Browser Set Page Name d Backdrop Hyperlink Dump eck Complete Page id 17 of Book "D:\MTB40\MTB40.SBK" Generic Modal DB z6ge Hyperlinks eck Complete >turnString Transition sample Transition Sample page "Transition sample 1" Handler List Browser Handlers winActivated enterWindow enterWindow winActivated ocurrentPage Array Edit ray _tbk_Hyperlinks Page id 61 of Book "D:\MTB40\MTB40.SBK" Script Dumper mp complete Create Search Index Page "ftsscripts" 3$3x" Select Object Page "selectObject" setCursor openWindow .'+ +F setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 1 ToolBook Unit Conversions Do not rename me 1 ge id 14 of Book "D:\MTB40\MTB40.SBK" R.TBK" s_ctb30r_PopViewers ASYM_itemOffset closeWindow closeWindow 4s_ctb30r_PopViewers ASYM_itemOffset( v b S YM_TempViewer SelectObject Select Object Page "selectObject" Page "bottomBar" Page id 52 of Book "D:\MTB40\MTB40.SBK" 4\!<$ hotzone 279,4,299,24 enableRollUp false unrolledSize 302,448 Property Editor Property Editor page "Property Editor" 2# #qE noActivate false returnString 3390,4635 minClientSize 214,260 maximimumSize 286,608 unRolledY1 unRolledY2 defaultsize 3000,3000 hotzone 286,5,306,25 enableRollUp false closing L$>(T!eTarget mm_MediaDialog Clip Player Properties page "mm_WidgetProps" %|%;+ currentObj group id 30 of page id 0 of Book "D:\ARNOLD\SAMPLES\SAMPLE6.TBK" currentWin currentStage stage id 6 of page id 0 mm_MediaWidgets Clip Players page "mm_MediaWidgets" whatWin mm_MediaImager windowshown windowshown whatWin = "mm_MediaImager" enabled 1FALSE mm_MediaImager page "mm_firstWidget" dialog (~+n= it Hotword Tag <$IsOpen setCursor openWindow .'+ +F setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 1 anim_edit bottomBar setCursor anim_edit openWindow .'+ +F setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor "anim_edit" oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 1 GHTBUTTONDOWN openWindow translateWindowMessage oclienthandle on 0x0020 setCursor initViewer cursor arrow ever YhWnd, msg, hWndmsg, hitTest, mouseMessage o<> 1 o<> 4 setSize ClientSize ocurrentPage enabled FALSE B"SelectObject" settings Animation Settings Page "settings" Page id 14 of Book "D:\ARNOLD\MTB40.SBK" m1P1*9 Page id 15 of Book "D:\ARNOLD\MTB40.SBK" Page id 15 of Book "D:\ARNOLD\MTB40.SBK" !2\1*9 N2it Property 2ge "clipPkg" 2dia Packager Found scripts Page "Credits" turnString M3$3b eferences q3D3b n Scripts Search Settings Not Found ageRef Credits *3_4& wait dlg Building Page List Page "wait dlg" uProps Add User Property page "upropsdlg" Edit Property page "propEdit" 7turnString Check Book Hyperlinks w+V!! statusBar openWindow openWindow statusBar readerlevelstatusbar false standard 48dPageRef Page "ftsscripts" sftsKwNum closeWindow closeWindow SYSTEM sftsKwNum Dialog3 Choose Path 8turnString Dialog2 2P8X> L8z625 748ipts" parentWindowHandle >it Property 8z648ripts Dialog1 KN9pK ge "propEdit" 1eferences 9v9Z4 parentWindow viewer id 1 of Book "C:\JXBETA\TBKTOOLS.SBK" parentWindowHandle Do not rename me 5 k "G:\FRANKJR\SPCLST\FOOBAR.TBK" Do not rename me 6 cancel retval openWindow openWindow retval currentpage propEdit cancel propEdit retval openWindow openWindow retval currentpage "propEdit" currentPage 'P1t Tab Order Animation: 1 of Button id 0 IsOpen Page id 58 of Book "D:\MTB40\MTB40.SBK" page "foundScripts" page "clipPkgChoosePath" X D:\TMP,true,false returnString setCursor anim_edit openWindow .'+ +F setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor "anim_edit" oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 2 o<> 1 initViewer setCursor openWindow .'+ +F setCursor setCursor anim_edit setSize SelectObject cancel initViewer --This handler sets the buttons ToolBar correct toggle state translates emessages WM_SETCURSOR WM_NCRIGHTBUTTONDOWN openWindow translateWindowMessage oclienthandle on 0x0020 setCursor initViewer cursor arrow ever YhWnd, msg, hWndmsg, hitTest, mouseMessage o<> 1 o<> 4 setSize ClientSize "anim_edit" ocurrentPage enabled FALSE B"SelectObject" creditsViewer getActiveWindow GetActiveWindow invalidateRect dlgViewer skipDlgAnim openWindow .updateWindow dlgViewer closeWindow skipDlgAnim openWindow SYSTEM creditsViewer, dlgViewer X"User" gGetActiveWindow() invalidateRect( L = getActiveWindow() parentHandle translateWindowMessage on 0x113 skipDlgAnim = targetWindow closeWindow untranslateWindowMessage 0 updateWindow( -- stub prevent timer messages going the dialog mmClose sized /= clienttopageunits( stage "egg" = page "searchandreplace" Find and Replace in Scripts Popup Window Sample Property Editor h>x>u4 searchmode 29,33 selectChars searchString ASYMI_ObjectIndex ASYM_BeenHere yyyyyyy TabFolder tbk_Wid_CurrentTab _CurrentTab baseRad tbk_wid_tabheight tabHeight Choose what to inspect. HelpText Tab 1 "tbk_wid_currentTab buttonClick yHelpText yHelpText HelpTextSys stbk_curOb HelpTextObj mouseEnter buttonClick tbk_wid_currentTab SYSTEM stbk_curOb oHelpTextSys oHelpTextObj 3dTabc tbk_wid_type Browse properties of the ToolBook instance. HelpTextSys Browse Standard properties of the object. HelpTextObj Browse Standard properties of the object. HelpText Standard Propertiess TLHighlight TRShadow Border Highlight Shadow Tab 3 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type Browse properties defined in tbk_wid_props. HelpText tab 3 caption Widget Properties TLHighlight TRShadow Border Highlight Shadow Tab 2 "tbk_wid_currentTab buttonClick yHelpText yHelpText HelpTextSys stbk_curOb HelpTextObj mouseEnter buttonClick tbk_wid_currentTab SYSTEM stbk_curOb oHelpTextSys oHelpTextObj 3dTabc tbk_wid_type Browse current system variables. HelpTextSys Browse user properties of the current object. HelpTextObj Browse user properties of the current object. HelpText Propertiess TLHighlight TRShadow Border Highlight Shadow Active tab area 3dTabBase tbk_wid_type 75,705,3240,5730 oldbasebounds Highlight2 Highlight TRShadow Border Highlight TabShadow Shadow TLHighlight TabShadow2 Highlight2 VHighlight linesize VHighlight2 Tab border header defaultAllowDrop curProp cheader properties tabfolder tbk_lastWin false pvalue \updateBrowser Tsetprop stbk_curOb lScurProp stbk_propNames stbk_customPropInfo stbk_propValues propValue pname selectChange selectChange SYSTEM stbk_curOb, stbk_propValues, stbk_propNames, stbk_customPropInfo pname = curProp pg = mode = "tabfolder" tl = selectedtextlines updateFlag = FALSE tbk_lastWin() = "< propertyEnumInt( ) <> NULL o = 2 isType("real", pvalue = setprop updateBrowser pg = ,!8!0 canSee dropDownLineCount scrolling Value of the selected property. HelpText trueem falser right justify2 radioButton pushButton checkBox3D radioButton3D label textHeader canType false canSee &%4*W fheader updatebuttons s_tbk_LastValue enterField updatebuttons updatePropFromHeader s_tbk_LastValue stbk_Canceled leaveField updatePropFromHeader ^mcancelPropFromHeader keychar that browser where values can be edited SYSTEM s_tbk_LastValue enabled "updatebuttons" you leave , unless user cancelled tbk_Canceled, stbk_Canceled <> TRUE updatePropFromHeader keyEnter cancelPropFromHeader -- -- propValue typed -- fref = "propvalue" -- tl = selectedtextlines -- tl > 0 -- Value of the selected property. HelpText none8/95 1:57:30 PMs asdf asdf asdf........ updateButtons 6+B,f check updatePropFromHeader buttonup updatePropFromHeader TRUE Click to apply the edited value. HelpText ^mcancelPropFromHeader buttonup cancelPropFromHeader Click to cancel changes to the value. HelpText r.z/q dialog propValue buttondown "propValue" Shows a window to inspect or edit the value. HelpText propgroup propname Property or variable names. HelpText propvalue Select a value to inspect it. HelpText propname sized notifyBefore sized "propname" labelGroup nameLabel valueLabel Value Object of interest P5`5~ in,ms ThreeDeeRect bottomLine topLine Object of interest selectedItems Choose the object to inspect. HelpText trueValue Field id 0 of Page id 0 objectOfInterest Current Pagectoundrrent Page Current Background Current Book Current Viewer System Current Object Current Page Current Background Current Book Current Viewer SystemSystem script tbk_lastWin stbk_curOb buttondown SYSTEM stbk_curOb <> "< tbk_lastWin() F?V?J Edit the script of the object whose properties are shown. helptext Splitter Splitter Dots splitter handle Drag to change the size of the columns. HelpText obtype Object whose properties are shown. HelpText leavePage tbk_reset sized firstIdle leaveBackground tbk_WinHelp MTB40.HLP keyUp X"TB40win.dll" -- INT SendKeys(STRING, -- pg = -- pvFld = "propvalue" -- SelectedTextLines -- "propname" SearchForHelpOn "{wait 50}" & & "{keyEnter}", 1) -- tbk_WinHelp(12920,"MTB40.HLP") 9408211413258534204820 ASYM_TpID extra scripts Extra Scripts ASYM_BeenHere Generic system book page tpDescription ASYM_TpID Title Set Startup ASYM_BeenHere Set Startup Menu Manager Menu Manager ASYM_BeenHere sizing stuff Sizing Stuff ASYM_BeenHere Script utilities ASYM_BeenHere Script Utilities ftsscripts FTS Stuff ASYM_BeenHere hyperlinks Hyperlinking ASYM_BeenHere hyperlinking Runtime Hyperlinking ASYM_BeenHere animation scripts Path Animation Scripts ASYM_BeenHere Open Ended Progress 7wASYM_Container nam = ASYM_Container( isOpen close ASYM_BeenHere 9409091905063435368706 ASYM_TpID Hyperlink Properties DB p%2) EditedLinks buttonClick EditLinkTriggerName Button ID 0 EditLinkObjName Button Click EditLinkTriggerText ASYM_BeenHere Trigger prompt Trigger event: defaultButton Button id 2 of Page id 10 defBtn needFix Button id 1 of Page id 10 cancelBtn Button id 3 of Page id 10 refBtn Type of Lin&k: nters.1Set s ToolBook Dialog inner frame Transition frame 3dFrame tbk_wid_Type Link to:: 3dFrame tbk_wid_Type placeholder Linked object name Button ID 0o"(Text: "sfjdhg")")alsjf;l...") Linked trigger Button Click Standard Triggers in,ms ThreeDeeRect bottomLine topLine Standard Triggers buttonClick,buttonDoubleClick values buttonClick trueValue Double click Single clicklick in,ms ThreeDeeRect bottomLine topLine linkType None,jump,popup values GoToPage trueValue selectedItems popup defaultLinkType Pop up another page Go to another page Pop up another page Link To What STRING propType choice &Next Page Previous &Previous Page &Go Back First &First Page &Last Page Link to specific &A Specific Page: 3dField tbk_wid_type Link Page Name string propType &In Book: 3dField tbk_wid_type Link Book Name string propType Wait Cursor propValue propValue enterButton propValue = TRUE objectFromPoint( ) <> &Use Cursor Bad Link >tbk_Container Ntbk_GetString propValue HyperlinkToBadBook This hyperlink points to a page that does not exist. HyperlinkToBadPage Link Book Name This hyperlink points to a page or book that cannot be found. linkedBook ButtonClick tbk_reset ButtonClick myPg = tbk_Container( linkedBook = propValue "Link Name" txt = tbk_GetString("HyperlinkToBadPage",\ "This hyperlink points that does xexist.") bg("HyperlinkToBadBook",\ Dcannot be found.") notifyBefore tbk_reset This Hyperlink is &Invalid... Browse enterpage link book name pgRef >tbk_Container Link page browser defaultButton link page name false pgFld bkFld skrefFocus propValue result BadLinkIndicator bkName KbrowseBookDlg propValue buttonClick notifyBefore enabled buttonClick LOCAL realBkFn myPg = tbk_Container( pgFld = "link bkFld = pgRef = propValue bkName = %NULL result = browseBookDlg( "Link browser" CTRUE B"OK" BadLinkIndicator [refFocus B"defaultButton" &Browse... Popup Style Pop Up &Window Style: p%H&\& Popup Style cb in,ms ThreeDeeRect bottomLine topLine Popup Style shadowAutoClose,shadow,thickFrame,thinFrame,dialogframe values shadowAutoClose trueValue Shadowed (close on click) Shadowed (close on click) Shadowed (manual close) Standard (thick frame) Standard (thin frame) Dialog Window) Dialog Windowc) Transition >tbk_Container enableSelf enableSelf how enabled cbfx = comboBox "fx" tbk_Container( selectChange Transition &Effect: in,ms ThreeDeeRect bottomLine topLine none,blinds,dissolve,drip,fade,iris,push,puzzle,rain,slide,spiral,split,tear,turnPage,wipe,zoom values vee Blinds Dissolve Puzzle Slide Spiral Split Turn Page splatter split turnPage DestLabel &Orientation: in,ms ThreeDeeRect bottomLine topLine right bottom dropDownText left,right,bottom,top values trueValue Right Bottom Topght Bottomt Lower Right Upper Left Upper Right Mouse Position DirLabel &Direction: in,ms ThreeDeeRect bottomLine topLine in,out values trueValue right SpeedLabel &Speed: msLabel ms.edd in,ms ThreeDeeRect bottomLine topLine Transition speed propValue propValue oldTxt 0123456789 keyChar enterField propValue = NULL = 1500 xisType(DWORD, oldTxt = x > 31 c = "0123456789" Transition &Effect: Transition &Effect: &Test buttonClick buttonClick oenabled Cancel s_Canceling buttonClick keyDown buttonClick SYSTEM s_Canceling targetWindow <> close [s_canceling notifyBefore x = 27 Cancel tbk_WinHelp MTB40.HLP buttonClick keydown buttonClick tbk_WinHelp(12000, "MTB40.HLP") notifyBefore keydown enterPage author tbk_reset leavePage winActivated clear paste leavePage 94073022293313495404865 6705,5490 extSz 6705,4350 normSz 94073022293313495404865 ASYM_TpID Link Page Browser Page id 2 of Book "D:\MTB40\REMOVER.TBK" pgRef ASYM_BeenHere defaultButton Button id 1 of Page id 11 defBtn needFix Button id 7 of Page id 11 refBtn Button id 1 of Page id 11 cancelBtn Main List sized sized ssm = sysSuspendMessages m"TL" m"BR" yp = sysPageUnitsPerPixel + xp, + yp,\ - xp, Main List selectedLines Book Name link book name Itbk_ellipsize propValue sized sized ssm = sysSuspendMessages m"TL" m"BR" yp = sysPageUnitsPerPixel + xp, + yp, - xp, fld = "link txt = propValue c = 0 c > 1 htbk_ellipsize( f) - c + 1, " Link Book Name trueValue propValue >tbk_Container Ntbk_GetString current book ThisBookDB trueValue propValue propValue otrueValue enabled B"current tbk_Container( ") = ( g <> s = NULL tbk_GetString("ThisBookDB","< D:\MTB40\REMOVER.TBK trueValue D:\MTB40\REMOVER.TBKOLUTIO.TBK Inner dialog frame Current Book >tbk_Container BrowseBook buttonClick buttonClick bkFn = BrowseBook tbk_Container( Current Book Browse Another Book... buttonClick buttonClick Cancel buttonClick keyChar buttonClick targetWindow <> close notifyAfter x = 27 Cancel tbk_WinHelp MTB40.HLP buttonClick buttonClick tbk_WinHelp(10700, "MTB40.HLP") enterPage author keyDown tbk_reset keyChar Button id 2 of Page id 11 6getToolBookIniItem Hyperlink Page browser Windows enterBackground false touched 0,0,0,0 6getToolBookIniItem =@setToolBookIniItem Hyperlink Page browser Windows leaveBackground getToolBookIniItem("Windows","Hyperlink Page browser") ) = 4 -- targetWindow touched = ini = NULL; "0,0,0,0"; setToolBookIniItem(" 94073021491726185471342 Transition Sample 1 Sample Viewer &Option Radio &3 Radio &4 Radio &2 Radio &1 ASYM_BeenHere Transition sample 1800,900 %sysmouseposition% ZatStr otrFx p = (%", p > 0 (%") - 1 = "1800,900" tbk_ExpandString( expandString( p = p > 0 Vp + 4 pgN = 2 transition 94082311305420727248724 ASYM_TpID blinds speed 500 Transition Sample 2 Blah:blah blah Bla blah Blah:blah blah Bla blah Blah:blah blah Bla blah Blah:blah blah Bla blah Mblah Teleblah. Blah blah blah. lose to your monitor. ablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah. ASYM_BeenHere Autoclose sample This style of popup viewer will close as soon as you click anything. ASYM_BeenHere Manual close sample This style of popup viewer requires you to close it manually at runtime. Because there is no control menu, you must provide a Close button or a script to close the viewer. ASYM_BeenHere Shadowed manual close sample This style of popup viewer requires you to close it manually at runtime. Because there is no control menu, you must provide a Close button or a script to close the viewer. ASYM_BeenHere Hyperlink Inspector Page Hyperlinks enterPage tbk_WinHelp MTB40.HLP contents keyDown cancel targetWindow <> = "Page Hyperlinks" contents tbk_WinHelp(12500, "MTB40.HLP") x, isShift, isCtrl buttonClick B"Copy" close Hyperlinks for Page Menunnell Douglas MD 500D ASYM_BeenHere Hyperlink inspector cancel targetWindow <> close 9409090943581751970076 defaultButton Button id 15 of Background id 7 defBtn needFix button id 17 of background id 7 refBtn Button id 15 of Background id 7 cancelBtn print &Print >tbk_Container background No hyperlinks on this page jtbk_Trim firstIdle buttonClick notifyAfter firstIdle oenabled = tbk_Trim( tbk_Container( /") <> "No hyperlinks on buttonClick lockScreen C&opy Cancel cancel buttonClick .', " cancel keyUp buttonClick notifyAfter &Close tbk_WinHelp MTB40.HLP buttonClick keyDown buttonClick tbk_WinHelp(12500,"MTB40.HLP") notifyBefore &Help D V [ 3dField tbk_wid_type 3dField tbk_wid_type Title keyDown author enterPage firstIdle keyUp Button id 15 of Background id 7 Hyperlink Tools Gauge gauge theCaption status progress progress theCaption (n) > 1 n = n = j(1, n)) "gauge" oldLock lockScreen targetWindow "bar" = x1 + (x2 - x1) * n + 15 "status" in,ms ThreeDeeRect bottomLine topLine gauge gauge enterPage notifyBefore "gauge" syspageunitsperpixel Status gauge enterpage notifyBefore "gauge" 53 objects checked 0 bad linksynchronized; 0 bad linkseems to be happening Cancel s_cancel buttonClick buttonClick SYSTEM s_cancel close Cancel buttonClick buttonClick close enterpage ASYM_BeenHere 9409091855513407568151 Hyperlink Check Options Group id 7 of Page id 0 refObj ASYM_BeenHere defaultButton Button id 1 of Page id 18 defBtn needFix Button id 1 of Page id 18 refBtn Button id 0 of Page id 18 cancelBtn Dialog inner frame page name doesn't match page ID number ID number number hey can get out of synch when you rename or import pages.) book names with the hyperpath of the book. Repair propValue false propValue propValue enterPage propValue notifyBefore &Resynchronize hyperlinks when destination Check the property-based hyperlinks in this book..ok. names when the destination directory is listed in the ASYM_Hyperpath property of this book hen you rename or import pages.) book names with the hyperpath of the book. Remove Paths propValue false propValue propValue enterPage propValue notifyBefore Remove path portion of &destination book Dump To File propValue report file name okBtn >tbk_Container false edit name report format propValue propValue buttonClick propValue enterPage propValue myPg = tbk_Container( chkd = ( + <> enabled "report file okBtn = B"OK" buttonClick notifyBefore Save a list of the &bad hyperlinks in file: 3dField tbk_wid_type Report file name string propType Page id 2 trueValue d:\mtb40\examples\badlinks.txt trueText Edit name Report file name buttonClick buttonClick "Report file Report format choice propValue PropValue choice buttonClick propValue enterPage propValue ochoice = NULL PropValue objs = buttonClick notifyBefore Pretty choice Pretty Re&port Tab-separated &Tab-Separated ASCII Data File >tbk_Container Dump To File enterPage buttonClick notifyAfter B"Dump To File" tbk_Container( oenabled = buttonClick &Start Check Cancel buttonClick cancel keyDown buttonClick targetWindow <> close notifyBefore x = 27 &Cancel keyDown enterPage author tbk_reset enterPage 94091917393215893127144 Import Backdrop ASYM_BeenHere &Directory: Frame FBPlayClip frameUpdate notifyBefore frameUpdate b = "FBPlayClip" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( This field shows the keyword to search for. helpInfo Bitmap Directory browse buttonDoubleClick center Itbk_Ellipsize trueValue propValue trueValue propValue FALSE 6getToolBookIniItem tbk_IsDirectory Backdrop propValue tbk_CurrentDirectory enterPage buttonClick B"browse" propValue otrueValue = txt = n = ) - 1 = tbk_Ellipsize( -, n, " notifyBefore getToolBookIniItem("Backdrop","Path",NULL) tbk_IsDirectory( ) = FALSE tbk_CurrentDirectory() bitmap photoCD filter clip "Asymetrix" propValue noneString lastSelected C:\TEMP\FOOBARBA\HOUBOTTE\CURTISLA\JUNKJUNK\TRUKTRUK\FOOBAR.DOM\ trueValue c:\temp\foobarba\h..........uktruk\foobar.dom\r.dom\r.dom\r.dom\dotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdotsdots\ Browse Browse the directories to locate the template directory. helpText &File Name: Frame FBPlayClip frameUpdate notifyBefore frameUpdate b = "FBPlayClip" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( This field shows the keyword to search for. helpInfo Bitmap Scroller bitmap photoCD filter clip "Asymetrix" propValue noneString BadFormat tbk_reset enterPage notifyBefore tbk_reset File not found. Try using a complete pathname.".ge file may be OK.upt file 3DGroupBox tbk_wid_type Shadow Highlight Preview >tbk_Container background sample backdrop sample buttonClick >tbk_Container background leavePage buttonClick sample = backdrop" tbk_Container( 1normalGraphic notifyBefore /") = Pre&view Sample >tbk_Container background sample backdrop sample buttonClick >tbk_Container background leavePage buttonClick sample = backdrop" tbk_Container( stretchGraphic notifyBefore /") = Stretch To Fit tbk_reset Stretch to fit page size (currently %1X%2) false Stretch 6getToolBookIniItem Ntbk_GetString BackdropCurStretch captn Backdrop enterPage notifyBefore tbk_reset "0,0" pageUnitsToClient( captn = tbk_GetString("BackdropCurStretch",\ (currently %1X%2)") K= "&" & ExpandString( Z= (getToolBookIniItem(" {) <> &Stretch to fit page size (currently 564X384) enterPage leavePage frameUpdate tbk_reset firstIdle Picture selection 9411161219148870310478 ASYM_TpID defaultbutton Button id 18 of Background id 10 cancelBtn Button id 19 of Background id 10 defBtn Button id 14 of Page id 19 refBtn Button id 14 of Page id 19 refFocus buttonClick buttonClick Cancel cancel buttonClick fUnoCancel keyDown buttonClick notifyBefore x = 27 noCancel Cancel tbk_WinHelp MTB40.HLP 12350 buttonClick keyDown buttonClick tbk_WinHelp("12350","MTB40.HLP") notifyBefore Thumbnail Dialog inner frame 3DGroupBox tbk_wid_type Shadow Highlight Bitmap Source As a rule, choose backdrop bitmaps that use the standard 16 VGA colors. Otherwise, on 256-color displays, the backdrop colors may shift each time the system palette is updated with different colors. See Appendix B in the ToolBook User Manual.nual. B Q * Sample backdrop 06cleanup tbk_reset 06cleanup leavePage +dummyResName cleanup notifyBefore tbk_reset cleanup bmp = onormalGraphic dummyResName() resource Bitmap Info Actual size: %1X%2 pixels Ntbk_GetString %3 colors BitmapInfoStr propValue propValue propValue info = tbk_GetString("BitmapInfoStr",\ "Actual : %1X%2 pixels" & CRLF & "%3 colors") %("#" & sysThousand & "###") = ExpandString( V:\VIDESIGN\BACKDROP\ propValue Major options >tbk_Container choice ButtonClick choice choice enterPage ButtonClick lockScreen targetWindow = oldActive = activeWindowHandle ochoice = pg = tbk_Container( pg <> notifyBefore nam = objs = (enabled Major options choice Import Backdrop &Import Bitmap File Use Existing Backdrop Bitmap enterBackground notifyBefore oenabled = resourceCount("bitmap", 8) > 0 &Use Existing Resource of this Book enterPage keyDown author enterBackground tbk_reset leavePage Use Existing Backdrop Bitmap ASYM_BeenHere &Bitmap Resources: Frame FBPlayClip frameUpdate notifyBefore frameUpdate b = "FBPlayClip" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( This field shows the keyword to search for. helpInfo Bitmap Scroller bitmap photoCD filter clip "Asymetrix" propValue noneString Bitmap: Frame FBPlayClip frameUpdate notifyBefore frameUpdate b = "FBPlayClip" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( This field shows the keyword to search for. helpInfo Bitmap Resource buttonDoubleClick center Itbk_Ellipsize trueValue propValue trueValue propValue 6getToolBookIniItem Backdrop propValue tbk_CurrentDirectory enterPage tbk_reset resources propValue otrueValue = txt = n = ) - 1 = tbk_Ellipsize( -, n, " notifyBefore getToolBookIniItem("Backdrop","Path",NULL) = tbk_CurrentDirectory() {tbk_reset bitmap photoCD filter clip "Asymetrix" propValue noneString lastSelected D:\MTB40\EXAMPLES\ trueValue No resource No bitmap resource in this book. 3DGroupBox tbk_wid_type Shadow Highlight Bitmap Resource Preview >tbk_Container background sample backdrop sample buttonClick >tbk_Container background leavePage buttonClick myBg = tbk_Container( sample = backdrop" normalGraphic notifyBefore /") = Pre&view Sample >tbk_Container background sample backdrop sample buttonClick >tbk_Container background leavePage buttonClick sample = backdrop" tbk_Container( stretchGraphic notifyBefore /") = Stretch To Fit tbk_reset 1, #? 1, #> false Stretch 6getToolBookIniItem Backdrop &Stretch to Fit Page Size enterPage notifyBefore tbk_reset "0,0" pageUnitsToClient( K= "&Stretch Fit Page Size" \ && "(now" && & "x" & & ")" Z= (getToolBookIniItem("Backdrop"," i") <> &Stretch to Fit Page Size (now 442x397) enterPage leavePage frameUpdate tbk_reset firstIdle keyDown buttonClick tbk_WinHelp(62674,"MTB40.HLP") notifyBefore &Help keyDown author enterPage Button id 5 of Page id 21 94082512530523192185540 ASYM_TpID ThreeDeeRect in,none bottomLine topLine clipPkgPrompt fileName 9hdPaths clipPkgPaths cdRom 5cdPaths hardDisk clipRef buttons initDlg -- Tim Pearson, Asymetrix 6/94 initDlg "fileName" = upperCase( &[1]) "clipRef" = ohdPaths = ocdPaths = l[3] = NULL {[4] = enabled "buttons" = FALSE B"hardDisk" "clipPkgPaths" = B"cdRom" ASYM_BeenHere D:\TMP hdPaths defaultButton Button id 0 of Page id 22 defBtn needFix Button id 5 of Page id 22 refBtn Button id 0 of Page id 22 cancelBtn This file currently exists on neither the Hard Disk nor the CD-ROM media paths: in,sculpted ThreeDeeRect fileName tbk_reset notifyBefore tbk_reset bottomLine topLine Clip:rce of Clip: clipRef tbk_reset notifyBefore tbk_reset buttons Choose Path tbkToolsDlg FALSE 5cdPaths 9hdPaths curClip sEreturnString anxSearchCD anxSearchHD clipPkgChoosePath buttonClick buttonClick SYSTEM 8 stbk_thisBook curClip LOCAL init[], clipRef isClip = ( 0 = " mmSearchHD F1] = TRUE mmSearchCD m1] = FALSE 1] = anxSearchHD 1] = anxSearchCD 1] = 1] = 2] = hdPaths 3] = cdPaths tbkToolsDlg( "clipPkgChoosePath" <> NULL returnString &Move... moveAll M&ove All... &Copy... copyAll Co&py All... tbkToolsDlg clipPkgPaths sEreturnString Choose Media Path buttonClick buttonClick LOCAL init[] tbkToolsDlg( "clipPkgPaths" ,"Choose Media <> NULL returnString &Add... sEreturnString buttonClick buttonClick returnString e= "skip" &Skip tbk_WinHelp MTB40.HLP buttonClick keyDown buttonClick tbk_WinHelp(62680,"MTB40.HLP") notifyBefore &Help cancel buttonClick buttonClick close Cancel keyDown tbk_reset author enterPage Button id 0 of Page id 22 94082512530715462139161 ASYM_TpID ThreeDeeRect in,none bottomLine topLine clipPkgChoosePath 9hdPaths ListToTextline paths cdRom paths 5cdPaths hardDisk initDlg keyDown -- Tim Pearson, Asymetrix 6/94 initDlg B"hardDisk" = B"cdRom" = hdPaths "paths" = ListToTextline( `[2]) cdPaths x[3]) keyEnter buttonClick B"OK" ASYM_BeenHere defaultButton Button id 0 of Page id 23 defBtn needFix Button id 1 of Page id 23 refBtn Button id 1 of Page id 23 cancelBtn in,sculpted ThreeDeeRect paths tbk_reset 5cdPaths 9hdPaths paths .'+ + enterPage notifyBefore tbk_reset paths = TRUE ohdPaths ocdPaths otextOverFlow = 0 notifyAfter textlineCount( ) > 0 oselectedTextlines = 1 D:\TMP hdPaths cdPaths bottomLine topLine sized sized xOff = sysPageUnitsPerPixel yOff = Media Paths:Clip: paths paths hardDisk buttonClick buttonClick paths B"hardDisk" hardDisk &Hard Disk cdRom &CD-ROM .'+ + sEreturnString cdRom paths hardDisk buttonClick buttonClick selectedTextlines "paths" = NULL returnString B"hardDisk", B"cdRom" Cancel buttonClick buttonClick close Cancel author keyDown enterPage tbk_reset enterPage Button id 1 of Page id 23 9408251253097731324723 ASYM_TpID ThreeDeeRect in,none bottomLine topLine clipPkgPaths keyDown -- Tim Pearson, Asymetrix 6/94 keyEnter buttonClick B"OK" ASYM_BeenHere defaultButton Button id 1 of Page id 24 defBtn needFix Button id 6 of page id 7 refBtn Button id 1 of Page id 24 cancelBtn in,none ThreeDeeRect bottomLine topLine Add To Media Paths Of: hardDisk &Hard Disk cdRom &CD-ROM sEreturnString cdRom hardDisk buttonClick buttonClick returnString B"hardDisk", B"cdRom" Cancel buttonClick buttonClick close Cancel author keyDown enterPage Button id 0 of Page id 24 94082512531046390139170 ASYM_TpID ASYM_BeenHere SelectionHandles SW_handle S_handle NW_handle E_handle NE_handle N_handle SE_handle W_handle editorScripts buttonClick buttonClick getHandlerList( /"editorScripts", "") EditorScripts settings buttonClick buttonClick getHandlerList( "settings", "") Settings selectObject buttonClick buttonClick getHandlerList( "selectObject", "") SelectObject Compiler buttonClick buttonClick gethandlerList( ", "") periodic buttonClick timer timernotify rightButtonClick buttonClick timerStart("periodic", 33, 55, timernotify 4&CRLF rightButtonClick timerStop(0) BottomBar Pages: Backgrounds: editorScripts 9408251253127732139176 ASYM_TpID Settings !6#*% defaultButton Button id 0 of Page id 26 defBtn needFix Button id 0 of Page id 26 refBtn Button id 0 of Page id 26 cancelBtn Steps per Second: Duration in Seconds: Duration w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer Steps integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown s_anim_animationSettings leaveField spinUp SYSTEM s_anim_animationSettings[] @12] "integer" spinDown xisType("WORD", >= 30 w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer ShowAllSteps s_anim_animationSettings buttonClick buttonClick SYSTEM s_anim_animationSettings[] Show All Steps s_anim_animationSettings buttonClick buttonClick SYSTEM s_anim_animationSettings[] Constant Constant Variable Variable integer settings s_anim_animationSettings buttonClick buttonClick SYSTEM s_anim_animationSettings[] B"reps" "settings" enabled "integer" FALSE integer settings enterButton integer settings buttonClick "integer" "reps" "settings" buttonClick integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown spinUp SYSTEM s_anim_animationSettings[] "integer" spinDown w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer 11111 Forever &Forever FixedPath FALSE s_anim_animationSettings buttonClick buttonClick SYSTEM s_anim_animationSettings[] Z= FALSE) &Update Path on Move CelAnimation StepsPerCel stepsPerCel Settings s_anim_animationSettings buttonClick buttonClick SYSTEM s_anim_animationSettings[] enabled "stepsPerCel" B"StepsPerCel" steps StepsPerCel integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown integer s_anim_animationSettings leaveField spinUp SYSTEM s_anim_animationSettings[] 611] "integer" spinDown xisType(" w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer StepsPerCel &Steps per Cel: Close C&lose author keyDown enterPage Button id 0 of Page id 26 94082512531446394139182 ASYM_TpID buttonClick buttonClick B"reps" Re&petitions: constant buttonClick buttonClick B"constant" R&ate: CelAnimation &Cel Animation integer duration buttonClick buttonClick integer "duration" &Timing: SelectObject defaultButton Button id 3 of Page id 27 defBtn needFix Button id 3 of Page id 27 refBtn Button id 2 of Page id 27 cancelBtn objects buttonClick buttonClick combobox " O&bject to animate: animations buttonClick buttonClick combobox "animations" &Animation: 8ksavePath Animation: ceditPath animations selectObject bottomBar objects anim_edit newObject s_anim_PathObject animation buttonClick buttonClick SYSTEM s_anim_PathObject <> NULL isObject( savePath "selectObject" newObject = combobox " ~(TAB, animation = Ganimations" (dropDownItems editPath enabled "bottomBar" ) - 1 "anim_edit" "Animation: isOpen close Cancel buttonClick buttonClick close &Cancel objects Button id 0 Button id 0 of Page id 109id 55d 73 animations enterPage author keyDown enterPage Button id 3 of Page id 27 9408251253167732231980 ASYM_TpID Select an object and animation from the lists below. Select new to add an animation to the object. object. bottomBar slider mySliderMin mySliderMax mysliderPos myNumTics scaledSlider tbk_wid_name numTics tallTicSpacing sliderMin sliderMax sliderPageSize sliderPos tbk_wid_props tbk_wid_values myTallTicSpacing sliderPageSize 5.00000 thumb hSliderThumb txClassName button id 103 of page id 15 glide width false hilight myTrackPos Shuttle helptext currentTime 0.00000% Cancel aborted s_anim_idleAnimations ZstopAnimation anim_edit buttonClick buttonClick SYSTEM s_anim_idleAnimations stopAnimation "aborted", "anim_edit" close &Cancel SelectObject 8ksavePath aborted s_anim_idleAnimations ZstopAnimation anim_edit s_anim_PathObject buttonClick buttonClick SYSTEM s_anim_PathObject, s_anim_idleAnimations stopAnimation "aborted", "anim_edit" p <> savePath "SelectObject" close &Done Tools Button id 7 of Page id 28 invertedButton Button id 7 of Page id 28 buttonPressed Select select default s_anim_selectedTool buttonClick buttonClick SYSTEM s_anim_selectedTool default Vertex vertex s_anim_selectedTool buttonClick buttonClick SYSTEM s_anim_selectedTool "vertex" cursor " settings aborted s_anim_idleAnimations ZstopAnimation settings anim_edit buttonClick buttonClick SYSTEM s_anim_idleAnimations stopAnimation "aborted", "anim_edit" "settings" %modal focusWindow enabeld R#^#M l#x#u previousLine nextLine middleCurve lastCurve firstCurve SelectObject selectObject aborted s_anim_idleAnimations ZstopAnimation SelectObject objects anim_edit s_anim_CurrentObject buttonClick buttonClick SYSTEM s_anim_idleAnimations, s_anim_CurrentObject stopAnimation "aborted", "anim_edit" ]ct = combobox " "selectObject" "SelectObject" %modal focusWindow normal objectColor previousLine nextLine middleCurve lastCurve firstCurve tbk_WinHelp PATHANIM.HLP buttonClick keyDown buttonClick tbk_WinHelp("","PATHANIM.HLP") notifyBefore &Help keyDown startSliderMove sliderMove endSliderMove enterpage Compiler 94082512531646396324772 ASYM_TpID wait dlg ASYM_BeenHere Building list of pages, please wait...] ThreeDeeRect in,none bottomLine topLine wait dlg 9502131809221873041120392172 ASYM_TpID Create Search Index ASYM_BeenHere Creating Search Index. Stand by.... ThreeDeeRect in,none bottomLine topLine update settings ASYM_BeenHere Updating Settings Files to Include Current Books. Stand By... ThreeDeeRect in,none bottomLine topLine update books ASYM_BeenHere Updating Books to Match Current Settings. Please Stand By... ThreeDeeRect in,none bottomLine topLine sftsSetFile ftsSetFile getSetFile sftsMainBk tbk_bookRef enterPage cancel keyDown SYSTEM sftsSetFile, sftsMainBk # <> tbk_bookRef() G = NULL T = getSetFile( = keyEnter buttonClick B"ok" B"help" ASYM_BeenHere defaultButton Button id 2 of Page id 33 defBtn needFix Button id 3 of Page id 33 refBtn Button id 3 of Page id 33 cancelBtn Creating a search index for a book makes full-text searching possible. This process may take a long time to complete. Create search index now?????????????????????????? create search index tbk_bookRef createIndex buttonClick the build process buttonClick createIndex index" tbk_bookRef() Cancel standard buttonClick buttonClick "standard" close Cancel Settings index settings [^stepBack tbk_bookRef buttonClick buttonClick stepBack "index settings" tbk_bookRef() = "main" &Settings... MM_CMD_Build_Index callWinHelp buttonClick keyDown buttonClick callWinHelp "MM_CMD_Build_Index" notifyBefore keyDown author enterPage Button id 3 of Page id 33 9502131808061797112143457002 ASYM_TpID ThreeDeeRect in,none bottomLine topLine value entry cancel keyDown = keyEnter buttonClick B"ok" B"help" dataType ASYM_BeenHere defaultButton Button id 2 of Page id 34 defBtn needFix Button id 2 of page id 34 refBtn Button id 1 of Page id 34 cancelBtn in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine Entry tbk_reset Cancel keyDown keyChar enterpage notifyBefore tbk_reset = keyEnter buttonClick B"OK" B"Cancel" e <> notifyafter formats dataTypes kdataType myFormats selectChange selectChange newText myFormats = odropdownitems i = 1 numFormats = ci <= dataType odataTypes U,D,S dataTypes mm:dd:[yy]yy dd:mm:[yy]yy [yy]yy:mm:yy Title Edit Tag: Tag::ag: keyed value:d: Data Type &Real Number &Integer [yy]yy:mm:dd dateFormats dataTypes dd:mm:[yy]yy U,D,S mm:dd:[yy]yy formats buttonClick buttonClick dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" cBox = combobox "formats" dropDownItems dataTypes cbox = "U,D,S" &Date &Character Format bottomLine topLine Dialog buttonClick buttonClick isOpen "Dialog" Cancel Entry Dialog buttonClick buttonClick "Entry" isOpen "Dialog" close Cancel callWinHelp MM_CMD_New_Tag buttonClick keyDown buttonClick callWinHelp "MM_CMD_New_Tag" notifyBefore keyDown author enterPage enterpage initType tbk_reset Button id 2 of Page id 34 value dialog 9502131811241994954121327420 ASYM_TpID assign section ftskeywords color newSec ASYM_BeenHere defaultButton Button id 2 of Page id 35 defBtn needFix Button id 3 of page id 76 refBtn Button id 1 of Page id 35 cancelBtn in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine choice color]te [None] colorfoo Footnote Title secName SectionNameColon sftsSections textEntry [None] Choice New Section Ntbk_GetString Section names may not contain commas. NoneBrackets ]ftsInsertLine section newSec No commas allowed in section Section Name: buttonClick buttonClick SYSTEM sftsSections cBox = combobox "Choice" numLines = secName = textEntry(tbk_GetString("New a"),\ SectionNameColon"," B:"),\ "","section") co commas allowed names may xcontain newSec = ftsInsertLine( dropDownItems oneBrackets","[None]")\ &New... exclude &Exclude Object From Index Title Section Name: object RecordField "color" id 1d id 1 newSec sftsSections standard addSec newSec buttonClick sftsSetFile sftsSections ?4ftsSetIniVar CONC_SECTION `/ftsTextlineToList CREATE addSec buttonClick SYSTEM sftsSections isOpen "standard" newSec <> NULL addSec ytFile, ~ = ftsTextlineToList( ftsSetIniVar("CREATE","CONC_SECTION", ,sftsSetFile) Cancel sftsSections standard buttonClick buttonClick SYSTEM sftsSections isOpen "standard" close Cancel MM_CMD_Object_Settings callWinHelp buttonClick keyDown buttonClick callWinHelp "MM_CMD_Object_Settings" notifyBefore keyDown author enterPage Button id 2 of Page id 35 section dialog 950213181231206249678458857 ASYM_TpID text entry cancel keyDown entryPg = keyEnter buttonClick B"ok" B"help" entryPg context dataType ASYM_BeenHere defaultButton Button id 2 of Page id 36 defBtn needFix button id 2 of page id 36 refBtn Button id 1 of Page id 36 cancelBtn Title Enter New Context:n:ection:key: in,ms ThreeDeeRect bottomLine topLine Entry tbk_reset enterpage notifyBefore tbk_reset notifyafter dialog buttonClick buttonClick isOpen "dialog" Cancel dialog buttonClick buttonClick isOpen "dialog" close Cancel MM_CMD_New_Section callWinHelp MM_CMD_New_Context context kdataType section RentryPg other buttonClick keyDown buttonClick dataType entryPg() = "section" callWinHelp "MM_CMD_New_Section" NULL notifyafter notifyBefore tbk_reset w, #? may not contain commas. entry Ntbk_GetString may not contain commas kdataType dialog RentryPg buttonClick buttonClick "entry" dataType entryPg()&& \ tbk_GetString("may xcontain commas"," isOpen "dialog" Cancel dialog buttonClick buttonClick isOpen "dialog" close Cancel MM_CMD_New_Keywords callWinHelp Contexts MM_CMD_New_Sections Keywords kdataType MM_CMD_New_Contexts RentryPg Sections other buttonClick keyDown buttonClick dataType entryPg() = "Sections" callWinHelp "MM_CMD_New_Sections" >Contexts" 3D_New_Contexts" dKeywords" YD_New_Keywords" rother" notifyBefore keyDown enterpage tbk_reset assign value ASYM_BeenHere C,bar C,foo C,foo C,foo R newKF defaultButton Button id 11 of Page id 38 defBtn needFix Button id 1 of Page id 38 cancelBtn Button id 2 refBtn in,ms ThreeDeeRect bottomLine topLine choice --notifyBefore tbk_reset [dropdownitems Title Choose Tag:ag: newKF standard newKF addKF buttonClick V, #> ,&H.& sftsSetFile tagName numKF ?4ftsSetIniVar newKF dataType CREATE *ftsGetIniVar KEYFIELDS addKF buttonClick isOpen "standard" newKF <> NULL addKF newKFList SYSTEM sftsSetFile tagName = dataType = numKF = ftsGetIniVar("CREATE","KEYFIELDS", xisType(DWORD, ftsSetIniVar(" y+1,"#"& Cancel standard buttonClick buttonClick isOpen "standard" close Cancel callWinHelp MM_CMD_Hotword_Settings buttonClick keyDown buttonClick callWinHelp "MM_CMD_Hotword_Settings" notifyBefore &New... keyDown author enterPage combo dialogs Cancel keyDown keyChar = keyEnter buttonClick B"OK" B"Cancel" _ <> 950213181413216432565365653 ASYM_TpID ThreeDeeRect in,true bottomLine topLine settings not found cancel keyDown buttonClick B"help" ASYM_BeenHere defaultButton Button id 2 of Page id 39 defBtn needFix Button id 4 of Page id 39 refBtn Button id 2 of Page id 39 cancelBtn New Settings File fname sftsInfoVal writeDefaultSST pathAndName filterList Settings File (*.SST),*.sst, All Files (*.*),*.* dialog ftsSaveAsDlg splitPath buttonClick buttonClick SYSTEM sftsInfoVal filterList = "Settings File (*.SST),*.sst, All Files (*.*),*.*" pathAndName = splitPath( fname = = ftsSaveAsDlg("New <> NULL writeDefaultSST isOpen "dialog" &New... Text search settings could not be found for this book. Do you wish to create a new settings file or choose an existing one??? Choose Choose a Settings File KpftsOpenFileDlg fname sftsInfoVal pathAndName filterList Settings File (*.SST),*.sst, All Files (*.*),*.* dialog splitPath buttonClick buttonClick SYSTEM sftsInfoVal filterList = "Settings File (*.SST),*.sst, All Files (*.*),*.*" pathAndName = splitPath( fname = = ftsOpenFileDlg("Choose a <> NULL isOpen "dialog" &Choose... Cancel sftsInfoVal dialog buttonClick buttonClick SYSTEM sftsInfoVal isOpen "dialog" close Cancel MM_CMD_Search_Settings_Not_Found callWinHelp buttonClick keyDown buttonClick callWinHelp "MM_CMD_Search_Settings_Not_Found" notifyBefore keyDown author enterPage Button id 1 of Page id 39 info dialogs 9502131814312182033335131342 ASYM_TpID ThreeDeeRect in,none frame bottomLine topLine info dialog close keyDown = keyEnter buttonClick B"close" ASYM_BeenHere defaultButton Button id 1 of Page id 40 defBtn needFix Button id 1 of Page id 40 refBtn Button id 1 of Page id 40 cancelBtn Close dialog buttonClick buttonClick isOpen "dialog" close Close message You must create a search index for this book before searches may be performed. author keyDown enterPage Button id 1 of Page id 40 where used close keyDown = keyEnter buttonClick B"close" ASYM_BeenHere defaultButton Button id 0 of Page id 41 defBtn needFix button id 0 of page id 41 refBtn Button id 0 of Page id 41 cancelBtn in,none ThreeDeeRect bottomLine topLine Page Title: in,ms ThreeDeeRect bottomLine topLine pages .'+ + enterPage tbk_reset notifybefore ) > 0 oselectedtextlines = 1 notifyBefore tbk_reset Page Number: in,ms ThreeDeeRect bottomLine topLine page number page reference pages tbk_reset notifybefore selectedtextlines " <> NULL stl = selectedTextlines reference" notifyBefore tbk_reset page reference Close dialog buttonClick buttonClick isOpen "dialog" close Close enterPage tbk_reset author keyDown Button id 0 of Page id 41 list dialog 9502131815222233201722131444 ASYM_TpID page settings )@*z+ |->-x ftskeywords foobar ftsTitle ASYM_BeenHere defaultButton Button id 1 of Page id 42 defBtn needFix button id 2 of page id 42 refBtn foobar of Page id 42 cancelBtn in,none ThreeDeeRect bottomLine topLine Page Context: title location mtitleLoc property object reference title buttonClick buttonClick >= "property" enabled "title" = {reference" = titleLoc property titleLoc property Use &Title Property object Use Index &Default object reference in,ms ThreeDeeRect bottomLine topLine object reference tbk_reset notifyBefore tbk_reset in,ms ThreeDeeRect bottomLine topLine title tbk_reset notifyBefore tbk_reset Exclude E&xclude Page From Index in,ms ThreeDeeRect bottomLine topLine contexts onsf Book "C:\HOOK\MMTOOLS.SBK" testexts50 of Book "C:\HOOK\MMTOOLS.SBK" new context Enter New Context: textEntry contexts newContext newContext Ntbk_GetString New Context ]ftsInsertLine Context names may not contain commas. NewContextColon context BadContextName buttonClick buttonClick newContext = textEntry(tbk_GetString("New $"),\ ContextColon","Enter F:"),\ "","context") XBadContextName",\ names may xcontain commas.") <> NULL combobox "contexts" = = dropdownitems 7 = ftsInsertLine( J,newcontext) g" = N&ew... in,ms ThreeDeeRect bottomLine topLine index keywords add keyword buttondoubleClick add keyword keyDown tbk_reset buttondoubleClick oselectedTextlines <> NULL buttonClick keyword" stl = / = keyEnter notifyBefore tbk_reset add keyword index keywords ]ftsInsertLine keywords page keywords newKW buttonClick index keywords buttonClick tl = selectedtextlines "index keywords" newKW = = ftsInsertLine( notifybefore oenabled = = NULL) &Add > remove keyword page keywords newKW buttonClick page keywords buttonClick tl = selectedtextlines keywords" newKW = notifybefore oenabled = ^ = NULL) <&Remove new keyword newKWList index keywords ]ftsInsertLine newKW Keywords page keywords newKW ndxKW Enter New Keywords: New Keywords multiEntry newKW buttonClick buttonClick newKWList = multiEntry("New Keywords","Enter pgKW = keywords" ndxKW = "index w<> NULL XftsInsertLine( &New... B$R$~ in,ms ThreeDeeRect bottomLine topLine page keywords remove keyword buttonDoubleClick remove keyword keyDown tbk_reset oselectedTextlines <> NULL buttonClick keyword" stl = / = keyEnter notifyBefore tbk_reset reference Page "page settings"idential"MTOOLS.SBK"K" Page Titleificationn Keywords:c: Keywords in Book(s) Keywords of Page:s) standard 2saveSettings buttonClick buttonClick settings saveSettings isOpen "standard" close Cancel standard buttonClick buttonClick settings isOpen "standard" close Cancel callWinHelp MM_CMD_Page_Settings buttonClick keyDown buttonClick callWinHelp "MM_CMD_Page_Settings" notifyBefore keyDown author enterPage tbk_reset Button id 2 of Page id 42 page options 9502131815442255263148394464 ASYM_TpID index settings 5RCj[ g>k,m ftskeywords ASYM_BeenHere defaultButton Button id 5 of Page id 43 defBtn needFix Button id 5 of Page id 43 refBtn Button id 4 of Page id 43 cancelBtn in,none ThreeDeeRect bottomLine topLine folder mytabheight myNumTabs myTabMode myTabSpace tbk_wid_name numTabs tabHeight tabMode tabSpace tbk_wid_props obtype tabHighlight tabLabel obtype tabHighlight tabLabel &Keywords obtype tabHighlight tabLabel &Hotwords obtype tabHighlight tabLabel &Objects obtype tabHighlight tabLabel &Pages obtype tabHighlight tabLabel &Files highlight Settings File: settings file D:\FOO.SSTT.SSTDIT.SST Set Options For... fileTab included books tbk_reset notifyBefore tbk_reset D:\FOO.TBK trueValue add book &Add... remove book w, /E included books lines sftsKwNum trueValue trueValue buttonClick included books buttonClick SYSTEM sftsKwNum lines = selectedtextlines "included books" lc = clc > 0 trueValue notifybefore oenabled &Remove excluded words tbk_reset aftsFileExists leaveField notifyBefore tbk_reset <> NULL ftsFileExists( ) < 0 D:\MTB35\COMMWORD.TXT trueValue choose excluded words fileName KpftsOpenFileDlg Choose an Excluded Word File Excluded Word File (*.TXT),*.TXT,All Files (*.*),*.* filterList wrdFile excluded words commword.txt buttonClick buttonClick fileName = "commword.txt" filterList = "Excluded Word File (*.TXT),*. ,All Files (*.*),*.*" wrdFile = ftsOpenFileDlg("Choose V",filename,"", 8<> NULL "excluded i" = &Choose... edit excluded words notepad.exe excluded words buttonClick buttonClick "notepad.exe"&& "excluded &Edit... Included Books Excluded Words File pageTab object object reference buttonClick buttonClick enabled {reference" = TRUE Use O&bject Text object reference d)?) B)R)~ in,ms ThreeDeeRect bottomLine topLine obName Name:t: Object Type: in,ms ThreeDeeRect obType recordField field button bottomLine topLine caption object reference buttonClick buttonClick enabled {reference" = FALSE Use &Title Property contexts New Context Contexts contexts Enter New Contexts: ]ftsInsertLine New Contexts contextName multiEntry buttonClick buttonClick LOCAL contextList contexts = numLines = 2 = multiEntry("New Contexts","Enter e <> contextName <> NULL ftsInsertLine( &New... Remove topic ftsSetPage contexts lines supdBooks buttonClick contexts buttonClick lines = selectedtextlines "contexts" '<> NULL updBooks ftsSetPage() = TRUE numLines = lc = clc > 0 notifybefore oenabled = &Remove Page Identificationn Page Contexts objTab V7f7~ in,ms ThreeDeeRect bottomLine topLine sections new section secName Enter New Sections: New Sections ]ftsInsertLine Sections sections multiEntry secNameList buttonClick buttonClick LOCAL sections secNameList = multiEntry("New Sections","Enter f = ftsInsertLine( &New... remove section ftsSetPage lines sections supdBooks buttonClick sections buttonClick lines = selectedtextlines "sections" '<> NULL updBooks ftsSetPage() = TRUE lc = clc > 0 notifybefore oenabled R&emove textContinues &Text Continues Through All Objects recordfield &Record Fields field F&ields button &Buttons combobox &Combo Boxes background On Back&ground hidden Hi&dden Sections Include These: Exclude If:ses hwTab dataType formats remove value notifybefore tl = selectedtextlines "tags" enabled value" = x(tl = NULL) "type" = x(tl = tl = comboBox "formats" = dataType = "UDS" M = TRUE new value N&ew... remove value ftsSetPage lines valCnt valCnt supdBooks buttonClick buttonClick lines = selectedtextlines "tags" #<> NULL updBooks ftsSetPage() = TRUE numLines = valCnt lc = clc > 0 &Remove NJ`J~ in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine ftsSetPage initType keyRef dataType buttonUp ftsSetPage initType keyRef dataType keyDown tl = oselectedtextlines (tl) = 1 keyRef = dataType = initType "type" ftsSetPage() tl = (tl) = 1 Real &Number &Integer [yy]yy:mm:dd dateFormats dataTypes dd:mm:[yy]yy U,D,S mm:dd:[yy]yy formats buttonClick buttonClick dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" cBox = combobox "formats" dropDownItems dataTypes cbox = "U,D,S" &Date &Character in,ms ThreeDeeRect bottomLine topLine formats w, /E dataTypes keyRef dataType myFormats selectChange selectChange newText myFormats = odropdownitems i = 1 numFormats = ci <= dataType = odataTypes tl = selectedTextlines "tags" keyRef = U,D,S dataTypes mm:dd:[yy]yy dd:mm:[yy]yy [yy]yy:mm:ddWZ Hotword Tags: Data Type Format kwTab help text,,"Help Text",,Help Text,,foo bar,Help Text,"foo bar",Help Text,foo bar,bar foo,find next,,help text,value,enter,button,handler,,foo,bar,bob,a,fd,gdg e,g,foo,,,,bar,,,,bob,,foo,bar,bob,sue,sob,,foo newKW P]b]~ in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine keywords tbk_reset notifyBefore tbk_reset New Keyword newKWList ]ftsInsertLine newKW keywords newKW Keywords Enter New Keywords: New Keywords multiEntry newKW buttonClick buttonClick LOCAL keywords, valName newKWList = multiEntry("New Keywords","Enter G<> NULL = ftsInsertLine( &New... Remove Keyword ftsSetPage lines keywords supdBooks buttonClick keywords buttonClick lines = selectedtextlines "keywords" numLines = lc = L<> NULL updBooks ftsSetPage() = TRUE clc > 0 notifybefore oenabled = &Remove where &Where Used Keywords Used in Index: V, #? .'+ +F .'+ +F You have included standard [^stepBack included books . Please remove some before continuing. +1infoDlg ftsscripts tbk_bookRef 2saveSettings Z^stepBack Warning No more than 20 books may be included in an index. buttonClick buttonClick numBooks = "included books") #> 20 infoDlg "Warning","No more than 20 4 may be index."&&\ "You have }&&". Please some 4continuing."\ "ftsscripts" tbk_bookRef() settings saveSettings stepBack = "main" isOpen "standard" close Cancel standard [^stepBack Z^stepBack buttonClick buttonClick stepBack = "main" isOpen "standard" close Cancel load settings sftsSetFile fileName stripExtension fname pathAndName updateSettings filterList sftsMainBk Settings File (*.SST),*.sst, All Files (*.*),*.* setFile Choose a Settings File splitPath KpftsOpenFileDlg buttonClick buttonClick SYSTEM sftsSetFile, sftsMainBk fileName = stripExtension( &)&".SST" filterList = "Settings O (*. ),*.sst, All Files (*.*),*.*" pathAndName = splitPath( fname = setFile = ftsOpenFileDlg("Choose a 4<> NULL updateSettings &Load Settings... save settings sftsSetFile fname ftsCopyFile pathAndName `QftsRemoveFile filterList Settings File (*.SST),*.sst, All Files (*.*),*.* settings file ftsSaveAsDlg 2saveSettings Save Settings File As splitPath newFile buttonClick buttonClick SYSTEM sftsSetFile filterList = "Settings (*.SST),*.sst, All Files (*.*),*.*" pathAndName = splitPath( fname = newFile = ftsSaveAsDlg(" .<> NULL ftsRemoveFile( ftsCopyFile( saveSettings "settings file" = &Save Settings... Defaults .'+ +F .'+ +F Cancel Continue ftsSetPage sftsSetFile contStr This operation will reset all settings to default values and overwrite your settings file. writeDefaultSST Ntbk_GetString updateSettings FTSReset supdBooks buttonClick buttonClick SYSTEM sftsSetFile contStr = tbk_GetString("Continue") FTSReset",\ "This operation will reset settings default values overwrite your 'file.")\ ancel") writeDefaultSST updateSettings updBooks ftsSetPage() = TRUE &Use Defaults tbk_WinHelp hIndex folder I,tabMode MTB40.HLP 63300,63302,63304,63306,63308 buttonClick keyDown buttonClick tabMode "folder" hIndex = "63300,63302,63304,63306,63308" tbk_WinHelp( :, "MTB40.HLP") notifyBefore keyDown author enterPage tbk_reset index settings 9502131816062276569153394596 ASYM_TpID reader settings ASYM_BeenHere defaultButton Button id 2 of Page id 44 defBtn needFix Button id 2 of Page id 44 refBtn Button id 2 of Page id 44 cancelBtn in,none ThreeDeeRect bottomLine topLine Reader Level Modifications choice Add Search &Options to Page Menu handlers Add Search &Handlers Only &Modify Scripts of All Included Books .'+ +F standard modifyBooks buttonClick buttonClick modifyBooks isOpen "standard" Cancel standard buttonClick buttonClick isOpen "standard" close Cancel callWinHelp MM_CMD_Reader_Level_Settings buttonClick keyDown buttonClick callWinHelp "MM_CMD_Reader_Level_Settings" notifyBefore keyDown author enterPage Button id 1 of Page id 44 9502131816282299136157131576 ASYM_TpID propEdit cancel retval ASYM_BeenHere defaultButton Button id 3 of Page id 45 defBtn needFix Button id 2 of Page id 45 refBtn Button id 2 of Page id 45 cancelBtn propname &Edit SystemTypes: in,ms ThreeDeeRect bottomLine topLine Propedit tbk_reset zashowOrHideScrollbar enterPage zashowOrHideScrollbar keyup zashowOrHideScrollbar zashowOrHideScrollbar clear zashowOrHideScrollbar paste showOrHideScrollbar enterField notifyBefore tbk_reset notifyAfter showOrHideScrollbar E> 0 buttonclick buttonclick Cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick Cancel author keyDown enterPage tbk_reset enterPage Button id 2 of Page id 45 9408251253301160292820 ASYM_TpID upropsdlg upropname Property &Value: Property &Name: SYSTEM variable &Value: namelabel SYSTEM variable &Name: upropvalue valuelabel initDlg upropname enterpage upropname sEreturnString upropvalue cancel initDlg value[] Bnamelabel "SYSTEM ^&Name:" Bvaluelabel ^&Value:" "Property & "upropname" "upropvalue" -- sent used Hstandard dialog LOCAL retString returnString close 12,14 selectChars cancel retval stbk_vref searchString ASYM_BeenHere defaultButton Button id 2 of Page id 46 defBtn needFix Button id 1 of Page id 46 refBtn Button id 1 of Page id 46 cancelBtn nameLabel Property &Name: < L ~ in,ms ThreeDeeRect bottomLine topLine upropname keychar leavePage notifyBefore valueLabel Property &Value: in,ms ThreeDeeRect bottomLine topLine upropvalue leavePage zashowOrHideScrollbar enterPage zashowOrHideScrollbar keyup zashowOrHideScrollbar zashowOrHideScrollbar clear zashowOrHideScrollbar paste showOrHideScrollbar notifyBefore notifyAfter showOrHideScrollbar E> 0 buttonclick buttonclick cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick Cancel keyDown leavePage author enterPage enterPage Button id 1 of Page id 46 9408251253316630324877 ASYM_TpID searchandreplace ! #>%\' 31,38 selectChars sysSuspend searchString ASYM_BeenHere defaultButton Button id 3 of Page id 47 defBtn needFix button id 6 of page id 67 Button id 2 of Page id 47 cancelBtn Button id 3 of Page id 47 refBtn Button id 3 of Page id 47 refFocus TabFolder tbk_Wid_CurrentTab _CurrentTab baseRad tbk_wid_tabheight tabHeight Tab 1 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow Tab 2 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type &Replace TLHighlight TRShadow Border Highlight Shadow Active tab area 3dTabBase tbk_wid_type Highlight2 Highlight TRShadow Border Highlight TabShadow Shadow TLHighlight TabShadow2 Shadow2 Highlight2 tab 3 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow tab 4 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow tab 5 "tbk_wid_currentTab buttonDown tbk_wid_currentTab 3dTabc tbk_wid_type &Find TLHighlight TRShadow Border Highlight Shadow Fin&d What: in,ms ThreeDeeRect bottomLine topLine findString replaceWith Repla&ce: in,ms ThreeDeeRect bottomLine topLine ReplaceString enterField matchword SearchAsWord Tools =@SetToolBookIniItem leavePage false 6getToolBookIniItem SearchAsWord Tools enterPage notifyBefore SetToolBookIniItem("Tools", "SearchAsWord", Z= getToolBookIniItem(" Match &Whole Word Only firstfind StopAfterFirstFind Tools =@SetToolBookIniItem leavePage false 6getToolBookIniItem StopAfterFirstFind Tools enterPage notifyBefore SetToolBookIniItem("Tools", "StopAfterFirstFind", Z= getToolBookIniItem(" Stop &After First Find prompt PromptBeforeReplace Tools =@SetToolBookIniItem leavePage false PromptBeforeReplace 6getToolBookIniItem Tools enterPage notifyBefore SetToolBookIniItem("Tools", "PromptBeforeReplace", Z= getToolBookIniItem(" &Prompt Before Changes Search Ran&ge: in,ms ThreeDeeRect bottomLine topLine B =)$ range All objects in this bookchycripts All objects in this book This page This page and background Page, background and book scripts Scripts in object hierarchy SharedScripts of this book buttonclick buttonclick Start cancel cancel buttonclick keyDown cancel keyUp buttonclick notifyBefore x = 27 oesc = x = 27 Close tbk_WinHelp tabFolder hIndex _CurrentTab 12800,12802 MTB40.HLP buttonClick keyDown buttonClick _CurrentTab "tabFolder" hIndex = "12800,12802" tbk_WinHelp( (,"MTB40.HLP") notifyBefore instructions Search Scriptslace Scriptsipts in this book keyDown enterPage leavePage keyUp author enterPage firstIdle paste clear leaveBackground 94082512080243682174728 ASYM_TpID changePrompt 16,32 selectChars ASYM_BeenHere defaultButton Button id 7 of Page id 48 defBtn needFix Button id 6 of Page id 48 refBtn Button id 4 of Page id 48 cancelBtn in,ms ThreeDeeRect bottomLine topLine scriptDisplay leavePage notifyBefore objectRef Group id 20 of Page id 1 ("propgroup") interest")LES\CBT2.TBK"TBK"TBK"IBRARY.TBK") buttonclick buttonclick EyyestoAll buttonclick buttonclick yestoAll Yes to &All buttonclick buttonclick Cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick &Cancel OK to replace propertyEnumIndex with propertyEnumInt????rties?? findString replaceString keyDown author enterPage leavePage Button id 4 of Page id 48 94082512533323206324891 ASYM_TpID foundScripts add extension searchString ASYM_BeenHere defaultButton Button id 5 of Page id 49 defBtn needFix Button id 5 of Page id 49 refBtn Button id 6 of Page id 49 cancelBtn Field id 11 of Page id 49 refFocus instructions Edit scripts of objects: in,ms ThreeDeeRect bottomLine topLine foundScripts .'+ + nameOffset stbk_searchString nameOffset stbk_searchString buttondoubleclick leavePage -- edits the found SYSTEM stbk_searchString selectedTextlines = NULL obj = nameOffset = ~("(", $-1) editScript notifyBefore buttonclick buttonclick Cancel cancel buttonclick cancel keyUp buttonclick notifyBefore Close author keyDown enterPage keyUp leavePage 94082512083214570305984 ASYM_TpID TabOrder LayerNum initDlg sEreturnstring layerNum lefttoRight retval cancel -- initializes dialog that prompts user change 9order. -- value[1] has the starting initDlg "LayerNum" "layerNum" = NULL retval B"lefttoRight" n = 1 n = 2 returnstring close ASYM_BeenHere defaultButton Button id 1 of Page id 50 defBtn needFix Button id 1 of page id 50 refBtn Button id 1 of Page id 50 cancelBtn in,false ThreeDeeRect bottomLine topLine Edit Tab Order of SelectionObjects &Starting Layer: in,ms ThreeDeeRect bottomLine topLine LayerNum 0123456789 keychar keyEnter "0123456789" LeftToRight &Left to Right TopToBottom &Top to Bottom Apply Order: buttonclick buttonclick Cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick Cancel tbk_WinHelp 20000 MTB40.HLP buttonClick keyDown buttonClick tbk_WinHelp("2 ","MTB40.HLP") notifyBefore keyDown author enterPage Button id 0 of Page id 50 9408251253349282185656 ASYM_TpID ThreeDee ASYM_BeenHere defaultButton Button id 12 of Page id 51 defBtn needFix Button id 12 of Page id 51 refBtn Button id 12 of Page id 51 cancelBtn Sample: in,false ThreeDeeRect bottomLine topLine sample in,ms ThreeDeeRect bottomLine topLine stylebuttons updatesample buttonclick raised inset ThreeDeeStyle raised ThreeDeeStyle buttonclick updatesample ThreeDeeStyle value B"raised" B"inset" "out" inset &Inset raised &Raised Style Add 3-D Style to SelectionObjects buttonclick buttonclick Cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick Cancel in,false ThreeDeeRect bottomLine topLine Border borderbuttons =checkedButton updatesample buttonclick FALSE sculpted =checkedButton border =checkedButton border buttonclick ocheckedButton updatesample border value -- backwards compatibility earlier version E = FALSE ` = TRUE "sculpted" checkedButton out,ms threeDeeRect sculpted &Sculpted &MS Style &None tbk_WinHelp 20010 MTB40.HLP buttonClick keyDown buttonClick tbk_WinHelp("20010","MTB40.HLP") notifyBefore keyDown author enterPage Button id 11 of Page id 51 940825125335773592830 ASYM_TpID Handler List Browser ASYM_BeenHere Viewer id 0 of Book "D:\MTB40\MTB40.SBK" tgtWindow Splitter Splitter Handle Drag up or down to resize the panes. HelpText Splitter dots Hierarchy in,ms ThreeDeeRect bottomLine topLine Hierarchy [notify] Field id 8 of Page id 52 [notify] Field id 3 of Page id 52 Page id 52 of Book "G:\MTB40\MTB40.SBK" Background id 37 of Book "G:\MTB40\MTB40.SBK" Book "g:\mtb40\mtb40.sbk" [SysBook] g:\mtb40\tb40hyp.sbk [SysBook] g:\mtb40\ctb40a.sbk [SysBook] g:\mtb40\ctb40r.sbk [SysBook] g:\mtb40\mtb40.sbk [DLL]G:\MTB40\FTS40MTB.DLL [DLL]C:\WINDOWS\SYSTEM\KRNL386.EXE [DLL]C:\WINDOWS\SYSTEM\USER.EXE [DLL]C:\WINDOWS\SYSTEM\MMSYSTEM.DLL [DLL]G:\MTB40\TB40DLG.DLL [DLL]G:\MTB40\MTB40CBT.DLL [DLL]G:\MTB40\TB40WIN.DLL [DLL]G:\MTB40\TB40DOS.DLL trueText Handlers in,ms ThreeDeeRect bottomLine topLine Handlers false isDLL Field id 11 of Page id 19 refObj leavePage enterpage tbk_reset fixLayout 6GetToolBookIniItem Handler Browser Bounds enterBackground false touched 0,0,0,0 6GetToolBookIniItem Handler Browser Bounds =@SetToolBookIniItem leaveBackground GetToolBookIniItem("Handler Browser","Bounds","") ) = 4 targetWindow touched = ini = 0,0,0,0") SetToolBookIniItem(" 94073021491726185471342 ASYM_TpID about initdlg cancel keychar cancel initdlg keyEnter close ASYM_BeenHere buttonclick buttonclick close Multimedia ToolBookTM Property Editorrerty Browserrrrrrrr buttonclick buttonclick close Written in Multimedia ToolBook 4.0 Asymetrix Corporation 940825125337663192834 ASYM_TpID Startup Options propsRead ASYM_BeenHere 3DGroupBox tbk_wid_type Shadow Highlight Caption Startup System Books 3DGroupBox tbk_wid_type Shadow Highlight Caption System Optionss Startup Dialog propValue FALSE propValue ASYMA enterPage propValue <> FALSE) notifyBefore b= (ASYMA() ) = TRUE logical propType Options secName ASYMA INIname Show &Startup dialog box (unless opening existing book) sysHotwordsShown false propValue propValue propValue boolean propType system secName Show &Hotwords startupReaderRightClick false propValue propValue buttonClick propValue buttonClick sysReaderRightClick = boolean propType system secName Reader Right &Click sysHistoryRecord propValue propValue propValue boolean propType system secName Recor&d History 3DField tbk_wid_type startupSysBooks system secName propType g:\mtb40\ctb40a.sbk g:\mtb40\mtb40.sbkmtb40.sbk d:\mtb40\bookbldr.sbk Add... >tbk_Container background Add SysBook TB40DLG.DLL SysBooks (*.sbk),*.sbk,ToolBook (*.tbk),*.tbk,All Files (*.*),*.* filterList OpenFileDlg fixScroll openFileDlg $disableEscape startupSysBooks buttonclick buttonclick X"TB40DLG.DLL" STRING openFileDlg ( , INT) filterList = "SysBooks (*.sbk),*. ,ToolBook (*.tbk),*. ,All Files (*.*),*.*" myBg = tbk_Container( disableEscape OpenFileDlg("Add ", NULL, fn = fn = fref = lowerCase(fn) selectedTextLines fixScroll &Add... remove Re&move Save sysBooks config SaveConfig startupSysBooks buttonclick buttonclick SaveConfig Load SysBooks Config LoadConfig startupSysBooks buttonclick buttonclick LoadConfig enterPage buttonclick Startup Preferences readIni 941126150203773154123 ASYM_TpID defaultButton Button id 61 of Background id 39 defBtn needFix Button id 61 of Background id 39 refBtn Button id 60 of Background id 39 cancelBtn buttonclick buttonclick cancel buttonclick $disableEscape >tbk_Container background keyChar buttonclick close notifyAfter x = 27 myBg = tbk_Container( disableEscape buttonClick Cancel tbk_WinHelp Drawing Defaults New Defaults Text Defaults MTB40.HLP buttonClick keyDown buttonClick "New Defaults" 13010 "Text 13020 "Drawing 13030 13000 tbk_WinHelp( , "MTB40.HLP") notifyAfter TabFolder tbk_Wid_CurrentTab _CurrentTab baseRad tbk_wid_tabheight tabHeight Tab 1 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type Startup &Options TLHighlight TRShadow Border Highlight Shadow Tab 3 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type Te&xt Defaults TLHighlight TRShadow Border Highlight Shadow Tab 2 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type Defa&ults TLHighlight TRShadow Border Highlight Shadow Active tab area 3dTabBase tbk_wid_type Highlight2 Highlight TRShadow Border Highlight TabShadow Shadow TLHighlight TabShadow2 Shadow2 Highlight2 tab 4 "tbk_wid_currentTab buttonClick buttonClick tbk_wid_currentTab 3dTabc tbk_wid_type Dra&wing Defaults TLHighlight TRShadow Border Highlight Shadow author keyDown enterPage leaveBackground keyDown keyChar new defaults propsRead ASYM_BeenHere Book property: size HelpText 8460,5760 propValue Width:idth: Height:ight: The ratio of ToolBook page units to pixels is determined by the video driver. helpText ToolBook Page Units:ssss Size, in pixels, of the pages of the book when using the standard Windows VGA driver (15 page units/pixel). HelpText Standard VGA Pixels:s Size, in pixels, of the pages of the book when using the current video driver. HelpText Pixels with this Video Driver:::O in,ms ThreeDeeRect bottomLine topLine startupWidth enterBackground rIsNumber propValue propWidth propValue sanityCheck leavePage sanityCheck >tbk_container Ntbk_GetString propValue The startup width must be at least 450 page units minStartupW propValue startupHeight sanityCheck notifyBefore propValue xIsNumber( = 0 = 8460 opropWidth = sanityCheck < 450 tbk_GetString("minStartupW",\ "The startup width must be )least 450 units") tbk_container( ") = propType 8460c in,ms ThreeDeeRect bottomLine topLine startupHeight enterBackground rIsNumber propValue propHeight propValue sanityCheck leavePage sanityCheck w,"K, >tbk_container Ntbk_GetString propValue minStartupH startupWidth The startup height must be at least 300 page units propValue sanityCheck notifyBefore propValue xIsNumber( = 0 = 5760 opropHeight = sanityCheck < 300 tbk_GetString("minStartupH",\ "The startup height must be )least 300 units") tbk_container( ") = propType 5760{ in,ms ThreeDeeRect bottomLine topLine startupWidth VGA in,ms ThreeDeeRect bottomLine topLine startupHeight VGA in,ms ThreeDeeRect bottomLine topLine startupWidth Pixels in,ms ThreeDeeRect bottomLine topLine startupHeight Pixels 3DGroupBox tbk_wid_type Shadow Highlight Caption Default Page Size NewBookDlg propValue Options false 6/ASYMA_GetAuthorIni propValue ASYMA enterPage propValue <> FALSE ASYMA_GetAuthorIni("Options", notifyBefore logical propType Options secName ASYMA INIname Show &New Book dialog box when starting new book ASYMA enterPage notifyBefore b= (ASYMA() commanddng the New Page or New Background command NewPageDlg propValue Options false 6/ASYMA_GetAuthorIni propValue ASYMA enterPage propValue <> FALSE ASYMA_GetAuthorIni("Options", notifyBefore logical propType Options secName ASYMA INIname Show New &Page dialog box when using New Page ASYMA enterPage notifyBefore b= (ASYMA() New Background command NewBackgroundDlg propValue Options false 6/ASYMA_GetAuthorIni propValue ASYMA enterPage propValue <> FALSE ASYMA_GetAuthorIni("Options", notifyBefore logical propType Options secName ASYMA INIname Show New &Background dialog box when using enterBackground leavePage enterpage clear paste text defaults propsRead ASYM_BeenHere 3DGroupBox tbk_wid_type Shadow Highlight Caption Line Spacing 3DGroupBox tbk_wid_type Shadow Highlight Caption Alignment 3DGroupBox tbk_wid_type Shadow Highlight Caption Indentationentation 3DGroupBox tbk_wid_type Shadow Highlight Caption Units Ntbk_GetString Inches metric enterPage notifyBefore "metric" = "cm" = tbk_GetString("Inches") Inches topLine topLine Units Page units Units Ntbk_GetString Inches metric enterPage notifyBefore "metric" = "cm" = tbk_GetString("Inches") Inches Units Page units Ntbk_GetString enterPage notifyBefore = tbk_GetString("Page units") Page unitss topLine topLine 3DGroupBox tbk_wid_type Shadow Highlight Caption Character sysFontFace propValue propValue propValue propType system secname MS Sans Serif MT Bold sysFontSize propValue propValue propValue propType system secName sysFontStyle propType system secName trueValue Boldlarript, bold, italic, underline, strikeout points Face: Size: Style: Character character tab catcher character enterField character ffFld oldfocus >tbk_Container fsFld sysFontFace sysFontStyle fzFld sysFontSize oldff propValue oldfs buttonClick buttonClick pg = tbk_Container( oldHActive = activeWindowHandle oldfocus = oldff = oldfs = oldfz = ffFld = fsFld = fzFld = propValue &Choose... &Alignment sysAlignment Center alignCenter right Right alignRight Ntbk_GetString center Justify justify propValue Center alignCenter Right right alignLeft alignRight Ntbk_GetString center justify Justify propValue propValue tbk_GetString("alignCenter"," ,gnRight"," JJustify"," gnLeft"," propType system secName Lefttry Center Justify Right Line &Spacing L$*%2( sysLineSpacing ?Single Ntbk_GetString 1 1/2 Double propValue ?Single Ntbk_GetString 1 1/2 Double propValue propValue tbk_GetString("Double") "1 1/2" 6Single") 3 = 1.5 > = "1 1/2" M = 2 propType system secName Single Single 1 1/2 Double sysIndents propType system secName &First Line: sysIndents1 decimal ftype sysIndents1 page ,&H.& sysIndents2 InchesToPu sysIndents3 propValue sysIndents2 puToInches sysIndents3 propValue enterfield propValue pg = "sysIndents3" "sysIndents2" = InchesToPu( pg = = NULL = puToInches( pg = pg = ftype From &Left: sysIndents2 decimal ftype (H1^1 sysIndents2 page ftype From &Right: (N2^2 sysIndents3 decimal ftype 0.00002 sysIndents3 page P3^3> ftype sysTabType choice propValue choice propValue choice buttonClick propValue = NULL ochoice = buttonClick choice propType system secName L&eft Tabs decimal &Decimal Tabs S&pacing: sysTabSpacing page rIsNumber RulerToPu PuToRuler keyChar TabSpacing page propValue TabSpacing TabSpacing page puToRuler propValue pg = oldT = txt = xIsNumber( nam = pg = PuToRuler( RulerToPu( pg = propValue pg = "TabSpacing pg = = NULL pg = pg = puToRuler( propType system secName TabSpacing 0>B>> decimal ftype 0.505 TabSpacing page ftype enterPage n?D?g? drawing defaults 3z5Z7 propsRead sysGridSnap false propValue propValue propValue boolean propType system secname S&nap to Grid sysGrid false propValue propValue propValue boolean propType system secname S&how Grid &Grid Spacing sysGridSpacing propType system secName GridSpacing decimal ftype GridSpacing page ftype &Polygon Shape: f v ~ in,ms ThreeDeeRect bottomLine topLine sysPolygonShape oldText propType fType system secName syspolygonShape update update buttondown update buttondoubleClick update buttonstilldown enterbutton leavebutton enterpage update fld = "syspolygonShape" j(99, buttondoubleClick notifyBefore &Button syspolygonShape update update buttondown update buttonstilldown update buttondoubleclick enterbutton leavebutton enterpage update fld = "syspolygonShape" notifyBefore &Button colorPaletteDlg >tbk_container colorPaletteDlg pattern TB40DLG.DLL recRef retcolor patrec scolor scolorfcolor buttonclick -- allows user specify buttonclick pg = tbk_container( linkDLL "TB40DLG. STRING colorPaletteDlg (WORD, BYTE, "scolorfcolor" recRef = patrec = rgb = rgbfill retcolor = (windowhandle retColor rgbstroke sysFillColor >tbk_container pattern fColor propValue >tbk_container fColor propValue propValue pg = tbk_container( "fColor" pg = pg = color propType system secname &Fill Color: fColor sysStrokeColor >tbk_container pattern sColor propValue >tbk_container sColor propValue propValue pg = tbk_container( "sColor" pg = pg = color propType system secName &Stroke Color: sColor sysUseWindowsColors false propValue propValue propValue boolean propType system secName Use W&indows Colors sysPattern propType system secName solidFill Solid Fi&ll solidStroke Solid Stro&ke custom &Custom patternFlipper pattern sample update update pg = sample = ss = r= NULL) pattern fType oldText solidFill pattern update solidstroke update update buttondown update buttondoubleClick update buttonstilldown enterbutton leavebutton enterpage update fld = < 128 = 128 = 254 buttondoubleClick notifyBefore pattern update update update buttondown update buttonstilldown update buttondoubleclick enterbutton leavebutton enterpage update fld = = 255 = 254 notifyBefore startupDrawDirect false propValue propValue propValue boolean propType system secname &Draw Direct out,ms ThreeDeeRect bottomLine topLine fColor out,ms ThreeDeeRect bottomLine topLine scolor 3DGroupBox tbk_wid_type Shadow Highlight Caption 3DGroupBox tbk_wid_type @4< 5 4K D Shadow Highlight Caption Pattern 3DGroupBox tbk_wid_type Shadow Highlight Caption Color out,ms ThreeDeeRect bottomLine topLine pattern propValue solidFill propValue enterPage propValue = NULL notifyBefore string propType Units Inches metric enterPage notifyBefore "metric" = "cm" = "Inches" --** INTERNATIONAL Inches: Units Page units: sysTransparent false propValue propValue propValue boolean propType system secname &Transparent enterPage leavePage ASYM_BeenHere Script dumper ASYM_BeenHere Gauge gauge theCaption status progress progress theCaption (n) > 1 n = n = j(1, n)) "gauge" "bar" = x1 + (x2 - x1) * n + 15 "status" in,ms ThreeDeeRect bottomLine topLine Gauge Status gauge enterpage notifyBefore "gauge" 88 objects with script 10215 script liness linkselse seems to be happening gauge enterPage notifyBefore "gauge" syspageunitsperpixel Cancel s_cancel buttonClick buttonClick SYSTEM s_cancel close Cancel buttonClick buttonClick close enterpage Script dumper 941013124836658846116 ASYM_TpID AddOnApps ASYM_BeenHere defaultButton Button id 2 of Page id 59 defBtn needFix Button id 2 of Page id 59 refBtn Button id 3 of Page id 59 cancelBtn in,false ThreeDeeRect bottomLine topLine Choose an &Application appList leavePage iconDisplay appStuff pageRef vshowIcon appName appRef appDescr buttonclick keyup runApp buttonDoubleClick notifyBefore buttonclick pageRef = stl = selectedTextLines appRef = tabloc = appStuff = VtabLoc + 1 appName = appDescr = showIcon BiconDisplay flushMessageQueue() runApp cancel cancel buttonclick keyDown buttonclick notifyBefore buttonClick Cancel iconDisplay buttonClick buttonClick appDescr tbk_reset notifyBefore tbk_reset Description keyDown tbk_reset leavePage author enterPage 94082518403667236336180 ASYM_TpID Edit2DArray %X'$(\) ASYM_BeenHere Numbers selectDim buttonClick which dim propValue update selectDim buttonClick loc L > 0 C > 0 txtL = selectDim 1, "dim1" L, "dim2" >i, dimname lockScreen targetWindow = propValue "which fld = "val1" dimName update i, "i2" "i1",i lastRow dimSpec lastOtherDim lastSel [ ] [ ] &View by: Which Dim choice update buttonClick enterButton leaveButton choice propValue choice update propValue propValue propValue keyDown buttonClick ochoice = update "val1" propValue = NULL = "Dim1" keyDownArrow choice &Select value at: Dimensions value edit prompt Value of s__edarrayName updatePrompt updatePrompt row, col SYSTEM s__edarrayName "Value " && % & "[" & A & "][" & H & "] :" Value of [1][1] :perlinks[1][1] :::: cheader false pvalue \updateBrowser Tsetprop stbk_curOb lScurProp pname selectChange selectChange SYSTEM stbk_curOb pname = curProp pvalue = setprop updateBrowser canSee dropDownLineCount scrolling checkBox label radioButton rectangle rounded pushButton shadowed checkBox3D radioButton3D leavePage enterPage s_EditArray update update enterField notifyAfter notifyBefore update row, col SYSTEM s_EditArray[][] "val1" updateButtons 4 |!c s_EditArray buttonup SYSTEM s_EditArray[][] row = col = "val2" = check s_EditArray update buttonup SYSTEM s_EditArray[][] row = col = "val2" update "val1" buttonClick .', " keyChar buttonClick notifyAfter default cancel cancel buttonClick .', " keyChar buttonClick notifyAfter 0'@'e escape Cancel enterpage notifyBefore oenabled = lastRow dimSpec lastOtherDim lastSel Warning Editing the values in an array may cause unexpected results. Save your book before you attempt to edit array values.s. enterpage leavePage keyChar clear paste trim s cs <> s <= cs <> s <= 94101615000154001378007 ASYM_TpID Edit1DArray ASYMI_ObjectIndex nHere Numbers lastRow dimSpec lastOtherDim lastSel &Select value at: Dimension value edit prompt Value of s__edarrayName updatePrompt updatePrompt row, col SYSTEM s__edarrayName "Value " && % & "[" & A & "] :" Value of [1] :m_CMSInfo[1] ::1] :: cheader false pvalue \updateBrowser Tsetprop stbk_curOb lScurProp pname selectChange selectChange SYSTEM stbk_curOb pname = curProp pvalue = setprop updateBrowser canSee dropDownLineCount scrolling checkBox label radioButton rectangle rounded pushButton shadowed checkBox3D radioButton3D leavePage enterPage s_EditArray update update enterField notifyAfter notifyBefore update row, col SYSTEM s_EditArray[][] "val1" updateButtons s_EditArray buttonup SYSTEM s_EditArray[][] row = col = "val2" = check s_EditArray update buttonup SYSTEM s_EditArray[][] row = col = "val2" update "val1" buttonClick .', " keyChar buttonClick notifyAfter default cancel cancel buttonClick .', " keyChar buttonClick notifyAfter escape Cancel enterPage notifyBefore oenabled = ASYM_BeenHere lastRow dimSpec lastOtherDim lastSel oldScroll Warning Editing the values in an array may cause unexpected results. Save your book before you attempt to edit array values.s. enterPage leavePage keyChar clear paste mm_MediaWidgets 15,15 lastUnits flipPages -%, #? right previous number mm_MediaWidgets mm_MediaImager targetPage direction buttonclick buttonclick "mm_MediaImager" direction = " targetPage = oldSys = sysSuspendMessages = TRUE "mm_MediaWidgets" = Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description previous number -%, #? widgets enterpage notifyBefore = "1 /"widgets" Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description 1 of 55tion tbk_lastWin newObj whatWindow whatObject showWidgetsProps mm_MediaImager buttonClick buttonClick whatObject = currentPage "mm_MediaImager" whatWindow = tbk_lastWin() onBackground newObj = copyObject( showWidgetsProps Copy to Book cancel buttonclick buttonclick close Cancel cancel tbk_WinHelp MTB40.HLP buttonclick buttonclick tbk_WinHelp(14000,"MTB40.HLP") target .'+ +F mouseEnter default mouseLeave mm_mediaImager s_art_dragObj mm_MediaImager buttonDown = default {loc, isShift, isControl SYSTEM s_art_dragObj currentPage "mm_MediaImager" "mm_mediaImager" U silently enterpage ASYMI_ObjectIndex ASYM_BeenHere palette 951207140048391942314950448 ASYM_TpID mm_WidgetProps CANCEL syscuror default keyDown autoPlayMedia myStage myClip stageSizing s_wid_targetObject sliderUpdate hasSlider sliderUpdate ,3clipRef HautoPlayMedia whatStage myMode enterpage buttonclick B"CANCEL" syscuror = default I = keyEnter B"OK" SYSTEM s_wid_targetObject, s_wid_targetWindow ' = NULL "myClip" = clipRef myStage = whatStage() myMode "stageSizing" = B"autoPlayMedia" = ( = TRUE) hasSlider B"sliderUpdate" = ( enabled 9FALSE 15,15 lastUnits ASYM_BeenHere defaultButton Button id 31 of Page id 64 defBtn needFix Button id 14 of Page id 64 refBtn Button id 30 of Page id 64 cancelBtn autoPlayMedia sliderUpdate myclip preLoadMedia -3clipRef s_wid_targetWindow autoCloseMedia lQautoShowMedia O8_myMode stageSizing s_wid_targetObject asym_reset HautoPlayMedia myparent autoShowMedia preLoadMedia mediaSizing (hopenClip kautoCloseMedia preLoadMedia sliderUpdate buttonclick buttonclick SYSTEM s_wid_targetObject, s_wid_targetWindow myparent = clipRef "myclip" myParent mediaSizing t = _myMode "stageSizing" preLoadMedia autoPlayMedia autoShowMedia autoCloseMedia enabled B"sliderUpdate" openClip asym_reset close shownBy default Cancel buttonclick buttonclick close shownBy escape Cancel background s_wid_targetWindow s_wid_targetObject whatStage whatStage 7wASYM_Container buttonclick buttonclick SYSTEM s_wid_targetObject, s_wid_targetWindow whatStage = '= FALSE bkg = ASYM_Container( = NULL sysTool = Stage... tbk_WinHelp MTB40.HLP buttonclick buttonclick tbk_WinHelp(14100,"MTB40.HLP") frame inside outside enterPage notifyBefore b = "outside" x = syspageunitsperpixel y = "inside" b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description inside outside Clip:ned Clip frame inside outside enterPage notifyBefore b = "outside" x = syspageunitsperpixel y = "inside" b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description inside outside On EnterPagee Media/Stage myClip propValue propValue propValue Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype clip "707" chooseClip myclip s_wid_targetWindow animation bitmap digitalVideo overlay whatClip Only clips of visual media can be used. buttonClick buttonClick SYSTEM s_wid_targetObject, s_wid_targetWindow resourceCount("clip", 8) = 0 clips 8) <> 0 whatClip = chooseResource(" #<> NULL mmMediaType "animation bitmap digitalVideo overlay" "Only visual media can be used." "myclip" Choose... newClip myclip s_wid_targetWindow animation bitmap digitalVideo overlay whatClip Only clips of visual media can be used. buttonClick buttonClick SYSTEM s_wid_targetObject, s_wid_targetWindow clips resourceCount(" 8) <> 0 whatClip = chooseResource(" %<> NULL mmMediaType "animation bitmap digitalVideo overlay" "Only visual media can be used." "myclip" New... stageSizing P8_myMode buttonClick P8_myMode myMode buttonClick _myMode value e= TRUE = FALSE stretchMedia myMode _myMode stretchMedia St&retch media stretchStage Stretch sta&ge centerMedia C&enter media clipMedia Cl&ip media sliderUpdate propValue propValue propValue = TRUE Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype propValue &Update slider while media is playing preLoadMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype propValue &Pre-load autoPlayMedia buttonclick -- enabled B"preLoadMedia" = FALSE B"autoShowMedia" -- Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype propValue &Auto-play autoShowMedia autoPlayMedia preLoadMedia buttonclick buttonclick enabled B"preLoadMedia" = FALSE B"autoPlayMedia" Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype propValue Auto-&show autoCloseMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description proptype propValue Auto-&close enterPage author keyDown widget1 9409231402478427151701 ansArray 9409231402478427151701 ASYM_TpID mm_firstWidget 2910,2730 realsize ASYM_BeenHere Pause, Stop, Play and a slider to show or set the current position. mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate custom,newClip boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing 160,120 mmMediaSize autoCloseMedia preLoadMedia FALSE autoPlayMedia FALSE autoShowMedia ASYM_W tbk_wid_name Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Provides a stage and controls for playing, pausing, and stopping visual media clips; includes a slider to indicate or set the current position. ASYM_WID_Description VIDWID.SPB ASYM_WID_Editor enterpage ASYM_AutoReset mmwidget_controls 168,2127,2718,2502 postion Pause pauseClip buttonClick buttonClick pauseClip 168,2127,543,2502 DystopClip buttonClick buttonClick stopClip 543,2127,918,2502 llplayClip buttonClick buttonClick playClip 918,2127,1293,2502 slider 1308,2127,2718,2502 lastTickCount frame sliderline slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm lastX mmwidget_stage mmwidget_stage myStage 160,120 mmMediaSize enterpage leavePage firstIdle leavePage widgets newobj showWidgetsProps s_art_dragObj howBig default endDrag endDrag obj, loc, whatViewer SYSTEM s_art_dragObj = default = NULL Y = TRUE howBig = onBackground newobj = copyObject( currentPage nnewObj = FALSE showWidgetsProps oldRecordfieldList newRecordfieldList screen reader author notifyBefore FALSE allowDrop frame description frameupdate frameupdate b = "description" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description description reader author 9510261455101305680710375970 ASYM_TpID ASYM_BeenHere Pause, Stop, Play and a slider to show or set the current position. mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate custom,newClip boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia ASYM_W tbk_wid_name Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Provides a stage and controls for playing, pausing, and stopping visual media clips; includes a slider to indicate or set the current position. ASYM_WID_Description VIDWID.SPB ASYM_WID_Editor enterpage ASYM_AutoReset mmwidget_controls 168,2131,2718,2506 Pause pauseClip buttonClick buttonClick pauseClip 168,2131,541,2506 DystopClip buttonClick buttonClick stopClip 543,2131,916,2506 llplayClip buttonClick buttonClick playClip 918,2131,1290,2506 slider 1308,2131,2718,2506 lastTickCount frame sliderline slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm lastX mmwidget_stage enterpage leavePage firstIdle leavePage ASYM_BeenHere Pause/Play, Stop and a slider to show or set the current position. mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate ASYM_W tbk_wid_name clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props custom,newClip boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Provides a stage and controls for playing, pausing, and stopping visual media clips; includes a slider to indicate or set the current position. ASYM_WID_Description VIDWID.SPB ASYM_WID_Editor enterpage ASYM_AutoReset mmwidget_controls 168,2136,2718,2511 mmwidget_controls realname myStage myClip pauseClip llplayClip ,3clipRef whatStage playing status buttonClick buttonClick myStage = whatStage() myClip = clipRef <> NULL status = mmStatus "playing" pauseClip playClip 168,2136,541,2511 PlayPause realname DystopClip buttonClick buttonClick stopClip 543,2136,916,2511 slider 933,2136,2718,2511 slider realname lastTickCount frame sliderline slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm thumb realname lastX mmwidget_stage enterpage leavePage firstIdle leavePage ASYM_BeenHere Rewind, Step Back, Pause, Stop, Play, Step Forward, Fast Forward. mmwidget_stage myStage mmWidget custom,newClip boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia AutoPlayMedia autoCloseMedia autoShowMedia ASYM_W tbk_wid_name Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Provides a stage and controls for playing, pausing, stopping, rewinding, fast forwarding, and stepping through visual media clips. ASYM_WID_Description VIDWID.SPB ASYM_WID_Editor enterpage ASYM_AutoReset mmwidget_controls sized moved ,&H.& objRef parentbounds myObjs whatStage adjustcontrols sized ssm = syssuspendmessages oldb moved adjustcontrols e= TRUE myObjs = parentbounds = whatStage() objRef = syspageunitsperpixel e= FALSE = ssm llplayClip buttonClick buttonClick playClip 1634,2131,2000,2506 aspect pause pauseClip buttonClick buttonClick pauseClip 901,2131,1267,2506 aspect DystopClip buttonClick buttonClick stopClip 1267,2131,1634,2506 aspect step forward pstepClip buttonClick pstepClip buttonStillDown buttonClick stepClip mmYield aspect 2000,2131,2366,2506 fast forward seekClipFromEnd buttonClick buttonClick seekClipFromEnd 0 aspect 2366,2131,2733,2506 step backward stepClipBack buttonClick stepClipBack buttonStillDown buttonClick stepClipBack mmYield aspect 535,2131,901,2506 rewind _seekClip start buttonClick buttonClick seekClip aspect 168,2131,535,2506 mmwidget_stage firstIdle leavePage ASYM_BeenHere No controls. Click to play.- mmPlayer mmWidget custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia Multimedia Widget tbk_wid_name firstIdle leavePage *$"$"$h credits hook2 anchor break x= y= dx = ( (xm)-x)/10 dy = ( (ym)-y)/10 Hdx,dy dx = ((xm/2-270)-x)/10 dy = ((ym/2-270)-y)/10 Hdx,dy headhole CDloc TB40DOS.DLL arnold.avi fileExists CreditsViewer credits fileExists getCDDriveList CDList :\media\avi\ 0wgetCDDriveList enterPage credits mmNotify Event handlers SYSTEM LockOut, CreditsViewer, dlgViewer & = targetWindow linkDLL "TB40DOS. INT fileExists(STRING) getCDDriveList() CDList = ; -- returns a list the CD players .<> NULL CDloc = G& ":\media\avi\" CDMediaPath =&"arnold. .") > 0 mmPlay clip "egg" stage " notify invalidateRect( clienthandle isOpen "credits" close mmNotify pClip, pCommand, pResult mmClose ASYM_BeenHere credits 951026143853328952366263665 ASYM_TpID fillpattern " Z " ! * ! * 6 { a k h [ } S 0,2,2,25,0 0,2,1,32,0 0,2,0,56,0 0,0,0,62,90 0,0,9,36,50 0,0,1,31,100 19,1,0,62,90 20,0,9,51,30 20,0,0,62,90 27,1,0,62,90 30,0,0,62,90 30,0,9,51,30 30,1,1,31,100 37,1,0,62,90 38,0,2,55,50 39,0,2,58,50 40,0,9,42,50 40,0,2,62,50 40,0,1,38,100 47,1,0,62,90 60,0,9,51,30 60,0,0,62,90 67,1,0,62,90 70,0,0,62,90 70,1,1,38,100 70,0,9,51,30 77,1,0,62,90 80,0,1,31,100 80,0,9,36,50 80,0,0,62,90 88,1,0,62,90 100,0,9,51,30 100,0,0,55,90 105,1,1,31,100 109,1,0,55,90 110,0,9,51,30 119,0,2,62,25 120,0,2,55,25 120,0,9,42,50 120,0,1,38,100 120,0,0,58,90 121,0,2,58,25 131,1,0,58,90 140,0,9,51,30 140,0,0,62,90 145,1,1,38,100 150,1,0,62,90 150,0,9,51,30 160,0,9,36,50 160,0,1,29,100 160,0,0,60,90 175,1,0,60,90 180,0,0,60,90 180,0,9,51,30 185,1,1,29,100 187,1,0,60,90 190,0,0,60,90 190,0,9,51,30 197,1,0,60,90 198,0,2,53,25 199,0,2,57,25 200,0,0,60,90 200,0,1,36,100 200,0,2,60,25 200,0,9,42,50 210,1,0,60,90 220,0,9,51,30 220,0,0,60,90 225,1,1,36,100 226,1,0,60,90 230,0,0,60,90 230,0,9,51,30 235,1,0,60,90 240,0,1,29,100 240,0,0,60,90 240,0,9,36,50 250,1,0,60,90 260,0,0,53,90 260,0,9,51,30 265,1,1,29,100 269,1,0,53,90 270,0,9,51,30 278,0,2,53,25 279,0,2,57,25 280,0,9,42,50 280,0,2,60,25 280,0,1,26,100 280,0,0,57,90 291,1,0,57,90 300,0,9,51,30 300,0,0,60,90 305,1,1,26,100 310,1,0,60,90 310,0,9,51,30 320,0,1,31,100 320,0,9,36,50 320,0,0,62,90 335,1,0,62,90 340,0,0,62,90 340,0,9,51,30 345,1,1,31,100 346,1,0,62,90 350,0,9,51,30 350,0,0,62,90 357,1,0,62,90 358,0,2,55,25 359,0,2,58,25 360,0,1,38,100 360,0,0,62,90 360,0,2,62,25 360,0,9,42,50 369,1,0,62,90 380,0,0,62,90 380,0,9,51,30 385,1,1,38,100 385,1,0,62,90 390,0,0,62,90 390,0,9,51,30 396,1,0,62,90 400,0,0,62,90 400,0,1,31,100 400,0,9,36,50 415,1,0,62,90 420,0,0,64,90 420,0,9,51,30 425,1,1,31,100 430,0,9,51,30 435,1,0,64,90 438,0,2,55,25 439,0,2,58,25 440,0,0,65,96 440,0,2,62,25 440,0,9,42,50 440,0,1,38,100 455,1,0,65,90 455,1,1,38,100 460,0,0,67,100 460,0,9,51,30 470,0,9,51,30 475,1,0,67,90 480,0,0,65,90 480,0,1,29,100 480,0,9,36,50 495,1,0,65,90 500,0,9,51,30 500,0,0,62,90 510,0,9,51,30 510,1,1,29,100 514,1,0,62,90 518,0,2,50,25 519,0,2,53,25 520,0,9,42,50 520,0,2,57,25 520,0,0,60,90 520,0,1,26,100 533,1,1,26,100 534,1,0,60,90 540,0,1,29,100 540,0,0,57,90 540,0,9,51,30 550,0,9,51,30 553,1,1,29,100 554,1,0,57,90 557,1,9,51,30 560,0,2,55,25 560,0,9,36,50 560,0,0,55,90 560,0,2,50,25 560,0,9,49,45 560,0,9,46,50 560,0,1,31,100 560,0,2,43,25 590,1,1,31,100 594,1,0,55,90 598,0,2,43,25 599,0,2,55,25 600,0,0,55,90 600,0,9,46,50 600,0,9,36,50 600,0,9,49,45 600,0,2,50,25 600,0,1,31,100 630,1,9,46,50 630,1,1,31,100 630,1,2,55,25 630,1,2,43,25 630,1,2,50,25 630,1,9,49,45 634,1,0,55,90 Hyperlink Check Options assign value mm_animProps credits Hyperlink Inspector Property Browser auto close sample Autoclose sample wait dlg update settings Hyperlink Properties DB Shadowed manual close sample animation scripts Script dumper TabOrder mm_AnimWidgets ThreeDee Link Page Browser value entry text defaults assign section Import Backdrop mm_MediaWidgets mm_WidgetProps extra scripts clipPkgPaths Use Existing Backdrop Bitmap index settings propEdit about manaul close sample AddOnApps mm_firstAnimWidget manual close sample Settings mm_firstWidget hyperlinking clipPkgPrompt clipPkgChoosePath where used foundScripts Property Editor clipPkg Script utilities hyperlinks multi entry searchandreplace Unit conversions Transition Sample 1 changePrompt Edit1DArray Hyperlink Tools Startup Options bottomBar settings not found upropsdlg Open Ended Progress Transition Sample 2 Edit2DArray Set Startup update books text entry page settings reader settings Handler List Browser drawing defaults Menu Manager ftsscripts sizing stuff Create Search Index info dialog new defaults SelectObject credits Hyperlink inspector Compiler palette wait dlg Transition sample section dialog combo dialogs widgets anim_widgets entry dialog Script dumper info dialogs Picture selection value dialog page options Startup Preferences widget1 list dialog editorScripts index settings info dialogs Picture sel clipPkg ASYM_BeenHere defaultButton 6 Z qk Button id 5 of Page id 21 defBtn needFix Button id 5 of Page id 21 refBtn Button id 1 of Page id 21 cancelBtn packageClips buttonClick buttonClick packageClips &Start Hint: If you wish to collect all media files into one directory, make sure your media paths include only one directory...E The Media Packager removes all explicit file references from your clip's media references. You may be prompted to answer questions about your media files during this process.sssssssssss buttonClick buttonClick mediaPaths Me&dia Paths Cancel buttonClick buttonClick close &Close tbk_WinHelp MTB40.HLP buttonClick keyDown buttonClick tbk_WinHelp(62674,"MTB40.HLP") notifyBefore &Help keyDown author enterPage Button id 5 of Page id 21 refFocus Button id 5 of Page id 21 _ShowHyperlinks SYSTEM s_ds_oCnt, s_ds_cnt LOCAL HLInfo myBk = tbk_Container( v = "Generic modal DB" DBpg = Inspector" pg = fN = = HyperlinkInfo (pg, " ", "short") oList = tbk_ObjectsWhere(pg,"",HasLinksFilter()) olist, "human", " = NULL = tbk_GetString("No hyperlinks on txtFld = DBPg = tbk_trim( "title" ExpandString( "),tbk_NameOrID(pg)) "tbk_HasHyperlinks( ) = TRUE tbk_HasAnsArray( _CheckHyperlinks WalkHyperlinks " _DumpHyperlinks WalkHyperLinks " toDoWhat cnt, tot_oCnt, s_tbk_dumpFile, s_cancel linkDLL "TB40DLG. STRING saveAsDlg( ,INT) defName = shortFileName( defPath = pathOfFile( p = ~(".", p > 0 d".TXT" filterList = Text file") && "(*.txt),*. prompt = SaveHyperlinkReportIn",\ report on ...") SaveBadHyperlinkReportIn",\ "Record bad ...") It = fN = It s_ds_ocnt = 0 s_tot_ocnt = 0 bk = [bgList checkExprs = prettyStr = PrettyFormat"," tabSepStr = TabSepData"," -separated data") SaveHyperlinkChooseFormat",\ :") \ f"&" & "&" & "&" & Cancel") fmt = " dataTab" FlushMessageQueue() ToDoWhat s1 = 8%1") s1 = 8%1") bk) & CRLF sep = SaveHyperLinkFancyStr",\ %1Trigger Event%1Response event%1 5 Type%1Dest. Page Book%1Transition%1Popup Style") 9) & DumpObjHyperlinks bk, fN, fmt, (windows obj = !, fN, pg = bg = bgID = itemOffset( ) < 1 g, fN bg,"", , fN, pg, fN, , fN, "<<" && l INTERRUPTED") && ">>" s1 = "%1 s2 = total %2 s2 = (s) found") ^ s1 && s2, [s_tot_oCnt tbk_OpenEndedProgress obj, formt, how hLInfo = GetHyperlinks( objName = expandObjName( n = 70 & charString("=",n) & -",n) & textlineCount( , s_ds_bad ss "Dumping && " }" & && " ss "Checking && " Z" & && " DumpingHyperlinkProgress",\ :" & & "%1 }" & & "%2 CheckingHyperlinkProgress",\ :" & & "%1 Z" & & "%2 = GetBadHyperlinks( hlInfo = --** DEBUG n = 70 -",n) & c, n s = p = ", s) p > 0 p - 1 " (p." && & ")" " (""" & & """)" array = _asym_hyperlinks = HLDetail( resynch V[][] = HLBadDetail( [][] Hreference, badList = _tbk_BadLinksList ( badTag iRow = _tbk_HyperlinkIRow( HLRowDetail( [][] TestItem n = dimensions( ) > 10 HLTestItem = "R" [i][2] = , i, [][] HLType = [i][7] HLBook = [i][4] HLPage = [i][2] HLName = [i][1] <> " [i][6] c"popup" HLFx = HLSty = <> "<" <> "ID" xisType(DWORD, " && HL = 8" && ") [i][1] HL & [][] --** HCO 941012 stack badLinks hyperLinks) [i][2] <> [i][2] <> "<" pgRef = tbk_FindHyperPage ( Q[i][2], [i,3], [i][4]) ][2] = tbk_nameOrID( ][3] = tbk_altPgName( thisBook = destBook = ][4] = fpath = --** HERE ADD CODE TO CHECK HYPERLINK PATH --** AND PROMPT USER IF BOOK NOT IN --** THIS IS TEMP thisPath = ][4] = ][4] = ][1] _ImportBackdrop v = "Set Page Name" tbk_Container( myBg = defaultPage FindBackDropObject( tbk_GetString("Change cmd"," +Add %modal orefFocus propValue "bitmap scroller" = getToolBookIniItem(" ","File") LOCAL backDropObj fld = fN = setToolBookIniItem(" ","Preview", B"preview" ","Sample", B"sample" ","Stretch", To Fit" fN <> ","Path", directory" [lastSelected dummyName = "q" & tbk_RandomTag() workWindow = ss = wasOnBackground = onBackground bg = bgSize = "0,0" useButton = WorkWindow ss = setBackdropProps setBackdropScript -- backdropObj <> oldResource = normalGraphic resName = mungeResName(fN) isHomonymResource = isResource(" ", resname) yesStr = Yes") noStr = NoDoImport","No, ExpandString( ("UseExistingBackdropResource x",\ # the existing resource ""%1""?"), f"&" & "&" & "&" & ancel","") TheResource = FlushMessageQueue() oldfirst = resourceList(" r= NULL OK = drawDirect stretchGraphic OK <> OKToDeleteBackdropResource",\ "No other . OK discard f"&" & "&" & nothing close (bg," restype, ss = cmd = " " && - && cancelOK noCancel p = ~(".", FN) p > 0 p = ~("\",FN) cp > 0 FN = "." p = ~("\",FN) ccnt = U(FN) -31)) oldSDF = q;oldSTF = q= "yymmddhh24minsec" result = k1000 (7) & {loc, isShift, isControl SYSTEM s_anim_lastLoc, s_anim_sizing = FALSE FCurrentObject, LOCAL dxResize, dyResize s_anim_CurrentObject = TRUE "selectionHandles" ls = lockScreen >= "NW_handle" >= "NE_handle" >= "SW_handle" >= "SE_handle" >= "N_handle" >= "S_handle" oldName = switchRect = crossPartner O EWPartner NSPartner = loc e= ls , s_anim_dx, s_anim_dy, t, s_anim_selectedVertex, nim_animationSettings[] showHandles t DIV 2 j = 1 s_anim_animationSettings[15] = 6] = do_enddrag /"editorScripts" ~("NE_", ~("NW_", ~("SE_", ~("SW_", ~("E_", ~("W_", ~("S", ~("N", objBounds = xMidPt = yMidPt = xHandleMidPt = sysPageUnitsPerPixel * 3 yHandleMidPt = +el * 3 = keyEnter buttonClick B"OK" B"Cancel" editPath theTarget, whichAnimation SYSTEM s_anim_CurrentObject, s_anim_selectedVertex,s_anim_dx,s_anim_dy,s_anim_PathObject, s_anim_animationSettings[] "anim_edit" reset , = objectAnimation( dimensions( Y) = 0 createPath ct = sliderMax "BottomBar" sliderPos -- difference between startPos -- ~path fhandles editing keep reference showPath(offsetPathBy( vertexPosition( showHandles "selectionHandles" updateSettings -- forces Uends ~, they don't always grouped s_anim_CurvedVertices, sls = = TRUE "constant" FALSE (2880 + By("0,0,2880,0", ),",") + 2880), By("0,0,-2880,0", ),",") - 2880), BLACK "settings" = sls savePath sourcePage, ssm = sysSuspendMessages -- edited ls = LockScreen lockScreen sc = theVertices 15] DIV 2), compilePath( 10]) 4 - 1 t = " sourceObject = 4 t && " " && s_anim_sourcePage j t && " " && t = t &&" anim_startPosition(1) anim_startSize(1) t&& QUOTE & "The has been saved 14]&&" {." -- To play specify"&& 14]&&" [ animationNumber parameter y playAnimation message." = ssm -- used display angled/curved fellipses over -- also displays curves curvedVertices exist -- returns pathObject ( }created) so can be referred -- lines are named "1","2","3", etc. vertice fall on -- ;"3", -- O"3", thePath, segLengthList LOCAL lineList,verticeList,curveList,i,animationString,verticeCount BsavedStates q = NULL sysLockscreen -- i incremented point1 i = 2 ) > 0 point2 drawLine( ), i-1) /"editorScripts" drawCurve(previousPoint, , i-1) drawHandle( , i-1, & "," , i-1, elements [s_anim_segLengthList hypotenuseFromVertices( /"compiler" passed --stub sysbook looking animations )-- Major change version that the combobox " interest" responsible choosing inspect creating Nproper reference. inspectType what -- called objCbBox = comboBox " propValue windowEntered -- sent Hbrowser odoNotUpdate <> wasRightClick checkSelection SYSTEM stbk_lastSelObj, stbk_curOb helpText = NULL obj <> statusBar = statusbar keyMnemonic x c = grp = "tabfolder" tbk_wid_currentTab customPropInfo, stbk_customPropFlag o<> 1 <> cursor "resize" stbk_cursor = dg = TRUE [stbk_customPropInfo tbk_lastWin() currentPage tbk_reset orefObj updateBrowser -- checks selections refresh , stbk_curMode, stbk_curProp, stbk_propTypes, stbk_propValues, stbk_propNames LOCAL STRING currSel, obj oldActive = activeWindowHandle = tbk_ObjectOfInterest() cref = objInt = objectOfInterest -- -- ) <> 1 trueValue homeBase = ( obj, -- central place setting , sysvars setProp Epropname, propval, firstLineOnly executionBuffer,firstLineSpec objRef % = " propSetTabs = -- B"props" 's a property && " 's a setSysVar mode = c"user" -- c"widget" -- && " " && -- removed quotes support vbx -- R = ) > 1 " && && " " && && " " && && " -- " && && " " && && " " && -- = obj ss = ; sysErrorNumber = 0 1= ss -- test failed: errNum = tbk_GetString("PropNameErr1",\ a standard cannot have a value.") compiling" part error. -- INTERNATIONAL -- Note: verify freal situation : ")+1 ecancelled" -- sets _. Moved its own handler so ^names will xconflict varName,varValue 4" && varname && "= -- returns sysVarValue 4" && -- updates obj. If homebase P, selects &, stbk_propInfo, vRef = "Property Editor" tbk_bookRef() cBox = skipFlag selectedItem selectChange 2 = obj -- -- enabled isOpen objComboBox = ls = -- urrently browsed aption -- && "["& P)&"]" "tabFolder" fakeObj = "< 4>" -- weird stuff workaround tbk_wid_tabtext "System Properties, Variables" tbk_Wid_CurrentTab ShowUserProps showProps tbk_lastwin() "Standard " & LF & " Widget (obj) = 1 = (tbk_wid_props = FALSE objType = val = itemOffset( buttonclick showUserProps showWidgetProps = obj ss = vref -- displays values. -- convoluted fanyone's vNames,vValues,vlist,i propNamFld = propValFld = propGrp = "propGroup" ofld = "obType" = "< -- bug detect cause ES c"does systemVars -- -- linkDLL "TB40Dlg. SortList( ;vList) & CRLF ss = ("@"& && " " && U(val) > 40 &"..." "" & "" q>") -- selectedTextLines obref( lists updateHeader loc_vNames,loc_vValues,loc_vlist,loc_i -- weed out _used "s__tbk_" "s_tbk_" "sfts" -- declare 4" && -- KLUDGE -- need find array. loc_ss = val&"..." -- END nameFld = clearList w_wid we've somehow got invalid xisValidObject( --** X"TB40dlg.dll" listToTextLine ( bookref = = systemProps = systemTypes & "..." propertyList( buffer = info = propertyInfo( oldSys = vbxGetCustomPropertyString( r<> "ok" "ERROR accessing & "..." we've !cheader" -- kind {we've got obtype = -- widgets tbk_wid_name w_wid_Name = w_wid_type = tbk_wid_type & w_propValues( & w_propNames( & w_propListText( itm, ChooseDropObject ACK oList, onlist, revList v = targetWindow loc = mousePosition objectFromPoint( " && p = p > 0 nam = & ShortFileName( C) & onList ) > 1 INT popMenu(WORD, &windowHandle v,pageScroll v,loc, "published" -- along p_widget {pRef g! = " && & "..." *" <> S"propText = tbk_wid_values lst_widget f_systemProps f_systemTypes -- initialize menus AuthorMenuItemMissing itemAlias ss = ; se= menuItemEnabled( r& "" r= se AuthorMenuMissing ~, topmenu ss = ; se= menuEnabled( r& "" r= se _enterMenu menuName,menuAlias NeedToBuild = FALSE "tbk_tools" ("tbk_ScriptMenu", buildBaseToolMenu "indexing" ng("buildIndex") buildIndexMenu ng("tbk_DumpScripts") ng("tbk_centerHorz") ng("tbk_shrink") "spread" ng("tbk_spreadhorz") "tbk_HyperlinksMenu" ng("tbk_ShowHyperlinks") "tbk_Backdrop" ng("tbk_ChooseBackdrop") "tbk_text" ng("tbk_importText") "mm_media" ng("mm_MediaWidgets") buildAuthorSubMenu tbk_GetString(" "Property &Editor,customEdit,0, &CRLF&\ "Viewer/editor &pts>, ,0,tbk_Tools" & utilities" & "Pre&ferences...,tbk_startPref,0, "Set values SYSTEM _on startup." & "-,,0, "&Center>, "Centers the selected {(s)" & "Si&ze>, "Makes }a uniform "&Spread>, "Puts between }." & Tab &Order...,tbk_TabOrder,0, "Sets tabbing order "Add &3D Style...,tbk_3D,0, "Adds modifies 3D style rectangles fields." & "-,,0, creation auditing "&Backdrops>, a backdrop graphic current {." & "Me&dia working >,tbk_Text,0, "Inserts rich a file J." & "-,,0, "Path Ani&mation...,PathAnimation,0, "Creates path animations." & Pac&kager...,mediaPackager,0, "Packages clip & files." & "&Applications...,tbk_AddOnApps,0, "Runs specified MTB40.INI dummy = _AddAuthorMenuItem( Bi+1 csetup",\ scripts "&Find/Replace...,tbk_ReplaceScripts,0, "Performs replace on 8." & Handlers...,tbk_ShowHandlers,0, handlers hierarchy Setup",\ &Properties...,mm_WidgetProps,0, "Edits "&Import "&Export ...,tbk_exportText,0, "Exports "Between &Sides, G ,0, &Top Bottom,tbk_centerVert,0, "&Both Ways,tbk_centerBoth,0, Size "Shrin&k Smallest, "&Grow Largest,tbk_grow,0, "&Horizontally, "Distributes }based on S-most }." & "&Vertically,tbk_spreadvert,0, Vupper- /." & "&Hide ,tbk_HideShowBackdrop,0, "Shows hides {." & "&Remove Gtbk_RemoveBackdrop,0, "Deletes hyperlinks {." & Page Book ...,tbk_DumpHyperlinks,0, "Write report "&Check K...,tbk_CheckHyperlinks,0, -- "error" && menualias Bi+1 --CO Settings...,IndexSettings,0, options building a full- I...,BuildIndex,0, "Builds a "&Reader Level ReaderLevelSettings,0, level searching."& "-,,0, PageSettings,0, "-,,0, "&Object ObjectSettings,0, {.,"& "&Hotword HotwordSettings,0, edits a tag."& "-,,0, "Full &Search...,FullTextSearch,0, "&Keyword BKeywordSearch,0, . a keyword Bi+1 authorMenuFindExistingItem als, mnu, submnu ss = Y) - 1 menuPosition( menuItemPosition( , hlptxt --CO 950922 -- supports only 1 submenu fhelptext ctxt pos > 0 NULL cmnu csubmu _menuExists , menuOwnerAlias _alreadyOnMenu menuItemAlias, 3-- Mike Florence, Asymetrix 6/95 -- Tim Pearson, packageClips 8 stbk_thisBook 4stack animList 4curClip clips, hdPaths, cdPaths, otherSearchPaths, affectedFiles Z logical hdHasPlaceHolder, cdHasPlaceHolder, interrupted, inComplete, inHdPath, inCdPath, searchHd, searchCd, skipped Z bookPath, clipRef, src, newSrc, allCmd, dir, newFile, srcPath, startPage linkDLL "tb40dlg.dll" STRING ListToTextline ( OpenFileDlg ( 3,INT) =SortList ( # SetCurrentDirectory ( B SetCurrentDrive ( ] CopyFile ( u FileExists ( MoveFile ( RemoveFile ( mediaPath( = HDMediaPath = CDMediaPath = resourceList(" isExtensionAdded("mtb40anx.tbx", msgBox("","Would you like include animations the packaging operation? This will require walking create a list Danimator }.","Question","YesNo") anxCnt = extensionRefCount(" tbk_lastWin() bk <> bk = getObjectList(bk," ",FALSE) <> NULL No animators were found.","Information","OkCancel") place holder path, Ftemporily substitute real = TRUE files paths ( mark %searchHD searchCD statusBar oldSys = sysSuspendMessages -- build UI description && " " && && QUOTE & isClip = ( src = mmSource "anxCelAnimRef "CDaudio,VideoDisc,VCR,overlay" -- these don't have references, so them -- see explicit should `mmSearchHD mmSearhcCD -- try find under mediaPaths, athere , otherwise well E findClip( G ) <> flag = anxSearchHD ) <> mmSearchCD ) <> ) <> findFile(shortFileName(src), ) -- we didn't , so look they already helped us -- -- can't , so ("Find & "," & -- so we -- update anxSearchCD setCurrentDrive( setCurrentDirectory( -- now that we changed a relative lets through loop we're <> 1 ) -- , so & "," & = inPaths( directory either prompt haven't chosen moveAll CopyAll, pkgPrompt( copyAll rest -- since a hardDisk we can assume want a cdRom = dir & "\" & ) <> 1 -- moveError( t) -- error, option bailing = "Yes" moved/copied , so we -- remember so we updated below ) <> 1 ) <> 1 copyError() ) <> 1 CopyError() = "Add" "clipPkgPrompt" 've added disk srcFile = ) + 2 -- finally, = minimalPaths( lowest common denominator directories = insertPlaceHolder( -- Hard which are alright may be child , so just ) clean ) -- CD-ROM Packaging completed, however 1 more .","Exclamation") incomplete."," sCompleted Successfully."," -- returns th without fName i - 1 -- looks finds # pathList Z retValue Y = " & "\" & & "\" & ) = 1 fileName, & "\" & ) = 1 whether -- prompts each Z init[] 1] = #2] = " " && ?2] = Z3] = f4] = tbkToolsDlg( ,"Choose Package Option", -- gives efailed continuing quiting !There a problem copying " && upperCase( & ". xbe enough !?"," . If because destination on different drives, a attempted, followed Ha delete successful errNum, = -17 -- moving accross " && & ". #?"," =#filename partially) qualified cnt - 1 Vi+1 -- removes redundancy updates $mmSources appropriately. ex) passing C:\FOO\BAR,C:\ \BOB would yield C:\ ?"curPath = removeDuplicateItems( " <> replaceRelativePath ") + 2 & "\" sortList( duplicate ms lst Z curItem , <> -- walks replaces every occurance ;&old oldSrc, Z oldDirOnly, ), src = directoryOnly( ) <> * = " =* -- asure & "\" & ) & src mmYield +) -- & "\" & = 1 replaceExplicitPath oldPath, newPath |,, src x, = , <> , = " scr = N- = newpath & x- = letter ~(":", +existance itemExists itemTxt, -- displays ,Windows messageBox 1,response &, @icon, @buttons, defaultButton, modality \ @style -- defaults: a single OK appliciationModal . "USER" INT MessageBox (WORD, = 0x0001 = "AbortRetryIgnore" = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 = "Stop" H0x0010 H0x0020 H0x0030 H0x0040 H0x0100 H0x200 H0x1000 = "task" H0x2000 = "" K= "" (windowHandle targetWindow,@ = "OK" = "No" .', #? V, #> sftsSetFile contextLine tempPageRef oldRSB Options pgKeywords clean kfieldData `/ftsListToTextline kwLine sftsBooks lines FALSE sftsMainBk page id Updating Settings File field,recordField,button,comboBox tbk_bookRef booksLeft CREATE oldPageRef sftsHwtags sftsVRef sections sftsContexts includeBooks KEYFIELDS _9updateStatus sftsSections CONC_SECTION dialog Contexts aftsFileExists itemNumber sftsValidObs sftsKeywords bookCount Keywords pageStr *ftsGetIniVar context numLines Reading Settings updateFile _9updateStatus nwalkAllObjects sftsValidObs oldRSB oldPageRef Done. bookCount booksLeft oldPageRef oldRSB sftsVRef Scanning nextBook ,&H.& .', " ,&H.& ftsContext walkObjects ]ftsInsertLine sftsKeywords ftsKeywords sftsContexts walkAllObjects -$, 7 RecordField hwtag obRef sftsSections Background sftsValidObs itemNumber hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg Field ]ftsInsertLine recIndex Hotword ftsSection curObjType ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName .', #? V, #> sftsSetFile _9updateStatus contextLine Options tempPageRef `/ftsListToTextline pgKeywords kfieldData sftsValidObs oldRSB CREATE itemNumber kwLine Updating Books sftsBooks sftsKeywords lines includeBooks sftsMainBk Keywords sftsHwtags sftsContexts page id aftsFileExists sftsSections booksLeft tbk_bookRef dialog Contexts oldPageRef CONC_SECTION pageStr *ftsGetIniVar sftsVRef context sections numLines field,recordField,button,comboBox Reading Settings KEYFIELDS updateBooks _9updateStatus nwalkAllObjects sftsValidObs oldRSB sftsBooks sftsKeywords oldPageRef Done. booksLeft oldPageRef oldRSB sftsVRef Scanning sftsContexts nextBook .', " ,&H.& ftsContext walkObjects ftsFindLine ftsKeywords sftsKeywords ftsKeywords ftsContext sftsContexts walkAllObjects -$, 7 RecordField hwtag obRef sftsSections Background sftsValidObs ftsFindLine itemNumber Field recIndex Hotword hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg ftsSection curObjType ftsSection ftsTag ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName _9G!Z +!+^+ findString stbk_searchString stbk_replaceString replaceString Start initDlg <+V!8 <+V!! replace tbkToolsDlg search statusbar matchword nameOffset stbk_searchString stbk_asWord stbk_promptChange Found scripts Page/background/book scripts findString stbk_vRef r1tbk_freeWinPointer propValue tbk_bookRef stbk_foundList statusBar sMode SharedScripts of this book GwalkHierarchy tbk_getWinPointer range nwalkallobjects searchOb false stbk_vRef nameOffset stbk_canceled stbk_searchString stbk_replaceString stbk_foundList stbk_lpMsg stbk_promptChange stbk_searchRange stbk_searchOnly stbk_cnt stbk_asWord sMode stbk_firstFind value prompt searchOb false ytbk_linkMessageFuncs firstFind Scripts in object hierarchy Ntbk_GetString foundScripts replaceString findstring Scripts of all objects walkCurrentPage stbk_searchOnly stbk_canceled stbk_searchRange This page searchmode stbk_cnt stbk_firstFind Could not find "%1". stbk_replaceString stbk_lpMsg Could not find quote X Start This page and background tbk_linkMemFuncs cancel ,&H.& gIreplaceScript tbk_ObjectOfInterest HshortFilename cursel s_tbk_linkedSysbooks notifyObs curSysBook page,background walkHierarchy background itemOffset recordfield rfList hotword gIreplaceScript stbk_searchRange oList walkCurrentPage .', " .', " ,&H.& walkObjects gIreplaceScript false Scripts of all objects stbk_searchRange SharedScripts of this book stbk_canceled walkAllObjects _9updateStatus Background sharedScripts of this book sharedScripts gIreplaceScript stbk_searchRange curObjType stbk_canceled walkObjects 1, "j .', " , /Ep cancel _9updateStatus promptValue Cancel Search tbkToolsDlg -+*/<>,()[];^=&.?': itemOffset FALSE stbk_asWord Saving script of %1. stbk_searchString stbk_foundList wordDelimit stbk_promptChange Ntbk_GetString obRef Yes to all stbk_searchOnly stbk_canceled changePrompt Saving script of x curScript tbk_bookRef false stbk_firstFind stbk_cnt xcheckForPendingStuff Could not change script of x stbk_replaceString stbk_lpMsg Replace? curScriptChanged Could not change script of %1. replaceScript stbk_vRef statusbar updateStatus stbk_canceled buttonRef Start ,&H.& itemOffset searchmode tabPressed .', " .', " prompt instructions replacewith firstFind Search Scripts Search and Replace Scripts searchmode search replace replaceWith searchmode TB40WIN.DLL {keyF5} Cssendkeys {keyEscape}+{keyF5} sendkeys editScript keychar wm_keyDown pm_Remove wparam tbk_PeekMessage tbk_peekMessage wm_lButtonDown checkForPendingStuff sharedscript of Book obRef findString enterpage stbk_asWord leavePage findString firstidle defaultButton !+setDefButton setDefButton Array Editing Options 8Ctbk_GetIniVar ArrayEditEnabled .'+ hd 1, "Q ,&H.& ,&H.& 1, "Q cancel colorPaletteDlg tbkToolsDlg dummy2D = Cannot edit properties longer than 32000 characters. wType Cannot edit arrays. FchooseFontDlg propEdit edit1DArray TsetProp bold,italic Can only edit 1D or 2D array values. propVal \updateBrowser tbk_lastWin uProp retcolor DOUBLE Choose a graphic... CannotEditNDArray tbk_bookRef property FLOAT retval LOGICAL SHORT qrgbtohls POINT palette fontface Property Editor VALUE TabFolder VbuildEnumList propInfo Edit Value "tbk_wid_currentTab script fontsize stbk_customPropInfo STACK regular stbk_propTypes Bitmap (*.bmp),*.bmp,Icon (*.ico),*.ico,Windows Metafile (*.wmf),*.wmf TB40DLG.DLL Edit Property stbk_customPropFlag Ntbk_GetString colortype pageRef wTypeList upropsdlg VBXPICT Add UserProperty openFileDlg uprop TB40dlg.dll bitmap,icon,cursor setupstring window cancelled stbk_propValues _edit2Darray sysVarValue RESOURCE Cannot edit arrays fontname properties dummy1D = header ENUM LIST DWORD RGB COLOR curOb FALSE sharedscript STRING INDENTS _edit1Darray HLStoRGB rgbtohls HLS COLOR bookRef isSysVar NBdisplay custom Tsetprop VBXDIALOG nextValue multiLine fstyle Add SYSTEM variable CannotEditOver32K stbk_propNames ChooseFontDlg qhlstorgb qhlstoRgb propValue arrayEditEnabled updateFlag boolean color tabfolder fface false openFileDlg openDlg rgbtohls hlstorgb rType colorPaletteDlg bold italic fsize true,false UNKNOWN,LOGICAL,STRING,WORD,STACK,RECT,POINT,DWORD,VALUE,ENUM LIST,RGB COLOR,HLS COLOR,RESOURCE,INDENTS,SHORT,LONG,FLOAT,DOUBLE,SCRIPT widget UNKNOWN TB40win.dll found stbk_customDlgShown stbk_curOb doNotUpdate leader updateFlag propInfo cancel wType stbk_customPropInfo stbk_customPropFlag propVal bookRef uProp initString retcolor curList fstyle retval stbk_propTypes dlgString stbk_propValues curType pageRef updateFlag fface stbk_curOb curOb dummy1D dummy2D leader curVal fsize isSysVar colortype filterList wTypeList found rType FALSE setupstring stbk_customDlgShown stbk_propNames propName UNBOUND filterList dlgString curVal ArrayEditEnabled edit2DArray propName buttonDoubleClick tabFolder stbk_propTypes abcdefghijklmnopqrstuvwxyz_0123456789 widget fheader curType propValue propName keydown .', " itemOffset itmPos nextValue .'+ h propNamFld mScurProp tbk_lastWin LOGICAL VBXDIALOG tbk_bookRef string %systemTypes stbk_customPropFlag fontface VbuildEnumList propInfo userproperties propValFld tabfolder stbk_customPropInfo stbk_propTypes boolean true,false UNKNOWN,LOGICAL,STRING,WORD,STACK,RECT,POINT,DWORD,VALUE,ENUM LIST,RGB COLOR,HLS COLOR,RESOURCE,INDENTS,SHORT,LONG,FLOAT,DOUBLE,SCRIPT widget UNKNOWN wTypeList ENUM LIST headerType VBXPICT stbk_curOb stbk_propNames stbk_propValues UNBOUND propValue NBdisplay widgetproperties properties header propName updateHeader .'+ +F ,&H.& FALSE found spot2 default spot1 buildEnumList 1, "V 1, "V <+V!8 .', #? w, #> w, #> w, #> w, #> <+V!! 8anxCelAnimRef animList anxSearchHD background tbk_lastWin FALSE stbk_thisBook 8anxCelAnimRef pkgPrompt Information curClip FileExists HshortFileName Question OpenFileDlg Packaging Completed Successfully. ListToTextline OpenFileDlg SortList msgBox anxSearchCD anxSearchHD minimalPaths animator Packaging completed, however 1 or more clips were skipped. srcFile mediaPath statusBar CopyError Would you like to include animations in the packaging operation? This will require walking the book to create a list of the animator objects. Find Media File YesNo (SfindFile clipPkgPrompt setCurrentDirectory copyAll moveAll Packaging was incomplete. YfindClip mtb40anx.tbx OkCancel iCopyFile CDaudio,VideoDisc,VCR,overlay moveError This book contains clips that refer to Hard Disk media files which are in directories relative to this book. Is it alright to add to the Hard Disk media path? SetCurrentDirectory SetCurrentDrive CopyFile FileExists MoveFile RemoveFile No animators were found. anxSearchCD This book contains clips that refer to CD-ROM media files which are in directories relative to this book. Is it alright to add to the CD-ROM media path? tb40dos.dll Exclamation 9hdPaths tb40dlg.dll setCurrentDrive anxCnt eMoveFile BinPaths copyError insertPlaceHolder 5cdPaths packageClips mediaPath w, #> tbk_lastWin FileExists 8anxCelAnimRef findClip FileExists findFile FALSE mediaPath inPaths .', #? tbkToolsDlg Choose Package Option clipPkgPrompt pkgPrompt YesNo msgBox Exclamation . There may not be enough disk space or the file may be open. Would you like to continue packaging? There was a problem copying the file copyError RemoveFile YesNo msgBox Exclamation iCopyFile There was a problem moving the file . The file may be open. Would you like to continue packaging? moveError shortFileName removeDuplicateItems mKreplaceRelativePath sortList minimalPaths sortList removeDuplicateItems w, #> w, #> animList FileExists stbk_thisBook 8anxCelAnimRef mediaPath tbk_lastWin HshortFileName anxSearchCD 8anxCelAnimRef anxSearchHD idirectoryOnly replaceRelativePath w, #> w, #> animList tbk_lastWin stbk_thisBook 8anxCelAnimRef mediaPath HshortFileName 8anxCelAnimRef replaceExplicitPath directoryOnly insertPlaceHolder FALSE itemExists Cancel MessageBox YesNo Ignore Exclamation system Information AbortRetryIgnore OkCancel Abort Question YesNoCancel RetryCancel Retry MessageBox msgBox